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COPYRIGHT NOTICE 

A portion of the disclosure of this patent document contains material 
which is subject of. copyright protection. The copyright owner has no 
objection to the facsimile reproduction by anyone of the patent document or 
the Patent and Trademark Office patent file or records, but otherwise reserves 
all copyright rights whatsoever. Copyright 1993 U.S. Robotics, Inc. 

FIELD OF THE INVENTION 

This invention relates to electronic communications systems and more 
particularly to a system for enabling a computer to transmit and receive 
information over an analog communications link. 

BACKGROUND OF THE INVENTION 

Computers typically use modems to communicate digital information over 
voice-grade telephone lines. Such modems translate digitally expressed 
information from the computer into analog tone signals suitable for 
transmission over the voice-grade telephone facility, and convert such tones 
back into digital form when received from the telephone line. 

High speed modems may advantageously employ digital signal processing 
techniques for translating outgoing digital data into a sequence of digital 
values each representing a desired analog output signal sample amplitude. 
These digital sample values may then be converted into analog form by a 
digital -to -analog converter for transmission over the telephone facility. 
Correspondingly, at the receiving station, the incoming analog signal may be 
converted into a train of digital sample amplitude values which are then 
processed to reconstruct the original digital data. 

The processing of the digital sample values is complex and has heretofor 
been accomplished by one or more dedicated microprocessors which form the 
heart of the digital modem. For example, the 9600 baud HST modem manufactured 
by U.S. Rob tics C rporati n and described in U.S. Patent 5,008,091 issued on 
April 16, 1991 employs three microprocessors: (1) a transmitting 
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microprocessor dedicated primarily to the translation of digital data into 
digital sample values; (2) a receiving microprocessor devoted primarily to the 
translation f sample amplitude values back into digital data; and (3) a 
supervisory microprocessor which serves as the interface to the computer to 
which the modem is connected. 

SUMMARY OF THE INVENTION 

The present invention, like the digital modems described above, employs 
analog/digital conversion methods to convert received analog signals into 
digitally expressed analog sample values and, during transmission, to convert 
digitally expressed sample values into analog form. Unlike prior digital 
modems, however, in the present invention the digital sample value signals are 
not processed by a separate processor or processors within the modem unit, but 
are rather processed by the microprocessor already present in the connected 
computer. As a consequence, the cost of the modem is substantially reduced 
because the need for separate processors is eliminated. 

The arrangement contemplated by the invention is implemented by the 
combination of a conventional host computer employing a microprocessor and a 
low-cost interface unit consisting of telephone line adaptor circuitry, an 
analog/digital converter, and a direct digital interface to the host 
computer's system I/O bus. The telephone interface unit exchanges digitally- 
expressed analog sample amplitude values directly with the connected host 
computer, and the microprocessor within the host computer handles the 
remainder of the digital processing. 

When operating as a modem, digital data can be processed into a sequence 
of digitally expressed sample values in accordance with a selected one of 
several accepted modem formats and transmission speeds. Given processors of 
speeds typically available, such modem processing can take place in real time 
to eliminate the need for storing the digital sample data in memory; for 
example, using the preferred embodiment of the invention to be described, a 
relatively slow Intel 80286 (IBM-AT class) processor operating at 12 mhertz 



has been shown to have adequate computational capability to perform the 
modulation and demodulation processing needed for 2400 baud full -duplex modem 
peration. 

Without requiring any additional hardware, the system may be programmed 
5 to send and receive graphical data as standard V.29 format facsimile data, or 
to send and receive data synchronously operating, for example, as an IBM 3270 
compatible terminal device. Moreover, when the digital sample values 
represent conventional voice transmissions rather than data, the system may be 
used to provide automated voice recording and playback functions to implement 
10 a telephone answering, voice message handling, and telemarketing systems. 

These and other functions may be added or revised without requiring any 
hardware modifications by simply changing standard programs which execute on 
the host processor in standard ways. 

These and other features and advantages of the present invention will 
15 become more apparent by considering the following detailed description of a 
preferred embodiment of the invention. In the course of this description, 
reference will frequently be made to the attached drawings. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

Figure 1 illustrates the major hardware components of the preferred 
embodiment of the invention; 

Figure 2 is a block diagram of the major components of the interface 
card; and 

Figure 3 is a detailed block diagram of the interface card; and 
25 Figure 4 is a functional block diagram illustrating the interaction of 

the major functions implemented by the host processor under program control. 

DETAILED DESCRIPTION 

The preferred embodiment of the invention as illustrated in Figure 1 
30 consists of auxiliary components mounted on an expansion card 15 which plugs 
into an available socket 17 on the motherboard 19 fa conventi nal IBM- 
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compatible Personal Computer indicated generally at 20. The host computer 20 
includes a conventional single-chip integrated microprocessor 22 which 
executes pr grams stored in a RAM memory unit which is depicted in Fig.l as a 
group of SIMM (single inline memory module) devices 24 mounted on the 
5 motherboard 19. The RAM memory 24 is typically loaded with programs to be 

executed by the microprocessor 22 from their permanent storage location on a 
magnetic disk drive (not shown) . The programs described which will be 
described below in connection with this preferred embodiment of the inventi n 
are executable on any IBM-compatible personal computer using the MS-DOS 
10 operating system. In order to provide adequate computational capacity, the 

microprocessor 22 is preferably be selected from the Intel 80286, Intel386 or 
Intel486 families of processors , or their functional equivalents, and should 
operate at a clock rate of at least 12 megahertz. In the description to 
follow, reference will also be made to the host computer's standard DMA 
15 (direct memory access) controller seen at 26 in Fig. 1. The host computer 20 
includes an internal system bus 28 which interconnects the microprocessor 22, 
the random access memory 24, the DMA controller 26 and the expansion card 15 
via the expansion socket 17. 

As seen in both Figs. 1 and 2, the expansion card 15 is provided with a 
20 standard telephone jack 29 through which a connection is made to a 

conventional voice-grade telephone line 30. The major components included on 
the interface card 15 are seen Fig 2. The card 15 takes the form of a 
standard "half-size adapter card" which plugs into an available expansion slot 
17 on the host computer 20 to connect to the host computer's internal bus 28. 
25 Detailed information on the structure and operation of the interface bus 28, 
as well as other aspects of the personal computer system 20, may be found in 
the applicable IBM Technical Reference Manual, IBM Corporation, Boca Raton, FL 
33432. Details concerning the Intel family of microprocessors and their 
companion DMA controllers appears in the Intel Microprocessor and Peripheral 
Handbook (1990), Intel Corporation, Santa Clara, CA. 
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The interface card sends and receives analog signals over a voice-grade 
analog telephone line which is connected at the terminal 29. Two standard 
RJ11 telephone jacks (not show) may be used to provide convenient external 
connections to standard telephone equipment, one jack accepting a plug from 
the telephone line and the second a plug from a telephone station set which 
may share use of the line. 

As seen in Fig. 2, the interface card includes a line adaptor circuit 
interconnects the telephone terminal 29 with a hybrid circuit which splits the 
analog voice-band signal into inbound and outbound components which are 
respectively sent to and received from the analog ports of an analog / digital 
converter 40 (also called the "AIC" or "analog interface chip"). Converter 
40 samples received voice-band signals, encodes the sample amplitudes into 
digitally-expressed values, and sends these, values via bus interface circuitry 
seen at 45 in Fig. 2 to the host computer 20. As described in more detail 
15 below, the conventional processor within the host computer 20 processes 

incoming digitally-expressed sample values to perform one of a variety of 
functions, depending on the nature of the incoming signal. 

Outbound communications originate within the host computer 20 which 
processes the information to be sent to create a sequence of digitally- 
20 expressed sample amplitude values which are sent via the interface circuitry 
to the converter 40 which transforms the digital sample values into the 
corresponding voice band analog signal which is applied via the hybrid circuit 
35 and the line adapter 31 to the telephone line connected to terminal 29. 

25 SIGNAL RECEPTION 

The processing of the incoming voice-grade signal in the interface card 
is shown in more detail in Fig. 3. The incoming voice -band signal arriving 
at terminals 31 seen in Fig. 3 may be a conventional telephone voice signal, a 
modulated- tone data signal from a modem, a facsimile signal, or some other 

30 signal capable of being transmitted over conventional telephone links. 
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Regardless of their content, incoming and outgoing signals are processed in 
the same way by the interface card 15. 

Arriving signals from the telephone link are applied directly via a 
transformer 33 to the input of an amplifier 35A within a hybrid network 35. 
5 The signal appearing at the output of amplifier 35A is applied to the analog 
input terminal 37 of a two-way analog/digital converter 40. The hybrid 
network 35 is of conventional design and includes a transmit amplifier 35B 
which is interconnected with the input to amplifier 35A by means of a 
resistive network which is arranged such that the transmitted signal from 
10 amplifier 35B is greatly reduced in magnitude at the output of the receiving 
amplifier 35A. 

The converter 40 preferably takes the form of a single integrated 
circuit device comprising, a Model TLC32044 voice band analog interface unit 
manufactured by Texas Instruments, Dallas, Texas. Detailed information on the 

15 structure and operation of the TLC32044 is contained in Data Sheet D3098 

(1988) available from Texas Instruments. The TLC32044 integrates an input 
analog bandpass filter, an analog- to-digital converter including a sample-and- 
hold circuit and a successive -approximation encoder which converts the input 
analog signal on line 37 into a 14-bit resolution digital signal. For 

20 processing outbound signals, the TLC3 20444 includes a 14-bit resolution 
digital-to-analog converter and a low-pass output reconstruction filter. 

The incoming analog signal is applied via line 37 seen in Fig. 3 to the 
converter 40 and the resulting digitally-expressed sample values are 
delivered via a bit-serial line 41 into an incoming-data shift register 43. 

25 When the converter 40 completes the encoding of a sample of the incoming 

telephone signal, the shift register 43 holds a 16-bit binary word whose 14 
most significant bits specify the amplitude of a sample. The value 
accumulated in shift register 43 is then transmitted via a data bus 29 to the 
data port pins of the computer's interface bus 28 during a DMA memory transfer 

30 peration as next described. 
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The analog/digital converter 40 is timed by a clock signal from a clock 
generator 44 seen in Figure 3. When the c nverter has delivered the last 
(least significant) bit via its bit-serial output 41, an EODR (end of data 
received) output 45 from converter 40 activated to inform a control unit 50 
that the data in the incoming shift register 43 is ready for transmission. 
Control unit 50 then issues a direct memory access request signal which is 
transmitted to the interface bus 28 via a control line in the group of control 
lines depicted in Figure 1 at 47. 

The interface card 15 preferably makes use of two separate DMA channels 
which are available in IBM- compatible Personal Computers for use by external 
devices. The receive channel, which moves incoming information via the shift 
register 43, is activated by a request to DMA channel 6 (DREQ6 at pin D13 on 
the standard IBM system bus 28). The DMA controller 26 within the personal 
computer 20 responds with a DMA acknowledge signal which is returned to the 
control unit 50 via one of the control lines 47 (connected to receive the 
signal DACK6 at pin D12 on the system bus 28). The control unit 50 responds 
to the DMA acknowledgement by gating the information from shift register 43 to 
the computer interface bus 28 via the data bus lines 29. 

SIGNAL TRANSMISSION 

The analog output signal to be transmitted over the phone line is 
generated by the analog/digital converter 40 which receives digital words , 
each comprising a 14-bit sample amplitude value and two control bits, from the 
1/0 interface bus 28 via the bus lines 29, an output latch register 54, and an 
outgoing-data shift register 56. The latch register 54 holds one digital 
sample while the sample previously received from the bus 28 is being sent, one 
bit at a time, from the shift register 56 to the analog/digital converter 40 
via the bit-serial line 58. 

The transfer of information between the bus 28 and the output latch 
register 54 is also accomplished by means of a DMA transfer. In this case, 
when the anal g/digital c nverter completes the conversion f a word from the 
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shift register 56, it issues' an EODX (end of data transmit) signal on line 59 
to the control unit 50 which in turn issues a transfer request to DMA channel 
5 by activating one of the lines in the control bus 47 (signal DREQ5 applied 
to pin Dll of the interface slot to bus 28). The DMA controller 26 
acknowledges that it is ready to handle the request by activating another of 
the control lines 47 (signal DACK5 at pin D10 of the interface slot). The 
control unit responds by transferring the contents of output latch 54 into 
shift register 56, and by enabling the output latch 54 to receive the data 
from interface bus 28 via the data bus 29. 

The bit-serial data applied to converter 40 via line 58 is converted 
into an analog signal appearing at analog output 60 of the converter 40. The 
analog output signal on line 60 is then transmitted by the hybrid amplifier 
35B and the transformer 33' to the tip and ring terminals 31 of the connected 
telephone line. 



SUPERVISORY CONTROL 

The microprocessor 22 within the personal computer 20 is directly 
connected via the interface bus 28 to the interface card 15 and provides 
general supervisory control over its operation. To accomplish this, the EODR 
signal on output 45 (one of which appears each time the translation of an 
incoming analog sample is completed) is applied to increment a 4-stage counter 
70 which issues an output interrupt signal on line 72 for each group of 16 
incoming words. The interrupt signal on line 17 is applied to a selected one 
of the available interrupt request lines on the interface bus 28 (the 
25 particular line IRQ3 to IRQ7 at interface slot pins B21-B25 may be jumper- 
selected at the time of installation to avoid conflicts with other peripherals 
issuing interrupts). 

When data is being sent or received over the telephone line 30, control 
of the execution of microprocessor 22 is passed to an interrupt handling 
routine resident in the memory 24. This single routine, the details of which 
are set. forth in the accompanying assembly language listing f r the INTS 
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module, calls routines for handling both transmission and reception in 
accordance with the currently selected mode of operation. These interrupt 
handling routines process incoming data words from incoming data shift 
register 43 as those incoming words are assembled in a RAM storage area by the 
DMA transfer mechanism described above. Secondly, the interrupt handling 
routines process outgoing information, assemble the outgoing data words 
indicative of analog sample amplitudes in a RAM storage area pending the DMA 
transfers to the output latch 54. Note that the single interrupt from line 
72, issued on every 16th received word, triggers the handling of the received 
data being accumulated in the DMA buffer as well as the assembly, in the 
transmit DMA buffer, of the outgoing data to be converted into analog sample 
values. 

In addition, the microprocessor has access at any time to information 
about the status of the telephone line, and may send control commands to the 
interface unit 30 to control that unit's operation. The control lines 47 
which exchange control information between the control unit 50 and the 
interface bus 28 include address lines (at interface slot pins A22-A29 to bus 
28) -which must contain a particular pattern of bits (in the range 35C to 35F, 
hexadecimal) designating information to or from the interface unit. When the 
appropriate address is detected, data from the interface port is placed in the 
board control latch register 74 to control the line. One bit position of 
latch 74 may be advantageously used to control an electronic off -hook switch 
seen at 75 in Figure 1 (which is closed or placed tt off hook" to connect the* 
interface unit to the telephone line). A second bit position in the control 
latch register 74 may be used to connect a speaker 76 to the output of the 
amplifier 35A by activating a switch 77. A third bit position may be used to 
reset the A1C 40. 

Correspondingly, a sense latch register 80 includes bit positions which 
are set by the status of the telephone line. A first bit is set whenever a 
ringing signal detector 82 connected across the telephone line terminals 31 
detects the presence of ringing signals of a predetermined amplitude. A loop 



10 



current signal detector seen at 84 sets a second bit whenever loop current 
exceeding a predetermined value is present, indicating an active connection to 
another system. These status signals may be obtained at any time by a 
programmed inquiry which places the appropriate I/O address on the address 
leads within control bus 47. 
PROGRAMMING OVERVIEW 

In the preferred embodiment of the invention, all digital processing f 
the digitally-expressed analog sample values which are supplied by and 
delivered to the interface card 15 are processed by the microprocessor in the 
host computer. Similarly, the digital information which specifies the 
telephone line status, as well as control information which takes the 
telephone line on and off hook, is handled by the host microprocessor. As a 
consequence, substantially any communication and communication control 
function using a voice-band channel may be' implemented with the hardware 
disclosed above (and nothing more) by providing appropriate programming for 
the host computer 20. 

The program listing presented at the conclusion of this specification 
provides numerous functions which allow the combination of the host computer 
and the interface card to support a rich assortment of voice and data 
communications applications. The listed source programs are written in 
conventional assembly language and may be assembled, linked and executed on 
any IBM- compatible Personal Computer which has sufficient operating speed and 
which is equipped with the expansion card described above. The assembly 
language which defines the program and data structures needed to implement the 
illustrative embodiment is divided into 12 separately listed modules which are 
summarized below and depicted in Fig. 4 of the drawings: 

MAIN . ASM The MAIN. ASM module seen at 101 in Fig. 4 initializes the 

interface card hardware and the screen, transmit and receive 
buffers in the host computer's RAM memory. It displays the 
main menu by calling the screen handling routines in 
SCRN.ASM and WIN. ASM as seen at 103 and decodes any user 
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keystrokes which control the system's operation. In 
addition, it provides routines capable of answering the 
phone, recording and playing back voice messages to and from 
standard DOS disk files as indicated at 104, as well as 
routines that manage the system when it is operating as a 
data terminal when keystroke data are directly transmitted 
and received (via modem processing) over the telephone link. 

INTS.ASM This module indicated at 105 handles the interrupts 

generated by the interface card each time 16 incoming 
digital samples have been accumulated in the host computers 
RAM memory by prior DMA transfers as determined by the 
counter 70 seen in Fig. 3. The interrupt handler calls 
routines for handling data transmission and reception. In 
addition, INT. ASM responds to telephone ringing signals 
generated by detector 82 and line current indications from 
loop current detector 84 on the interface card 15 as seen in 
Figs. 3 and 4. 

RECVFIL. ASM This module, seen at 107 in Fig. 4, contains the filtering 

routines used to pre-process the incoming analog signal samples 
which are received via the incoming DMA channel seen at 108 in 
Fig. 4. When the system is operating as a 1200/2400 baud modem, 
the RECVFIL. ASM routines 107 process the accumulated digitally 
expressed sample values from the interface card and performs band- 
splitting and phase-splitting digital filtering to create filtered 
samples for demodulation, as well as automatic gain control and 
baud rate synchronization. 

DEMOD . ASM This module, shown at 109 in Fig. 4, demodulates the filtered 
sample value from RECVFIL. ASM into data. 

DBOX.ASM The DBOX.ASM module at 111 provides routines which allow the 

host computer's screen to provid an scilloscope-like eye- 
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XX. ASM 



TONES. ASM 



CALLP . ASM 



diagram display useful for monitoring the performance of the 
system during modem data reception. 

This module, seen at 113, modulates digital data to be 
transmitted into sample amplitudes which are placed into the 
transmit buffer from which they are moved via the outgoing 
DMA channel seen at 114 to the interface card for digital- 
to-analog conversion into a voice-band analog modem output 
signal which is transmitted over the phone line. TX.ASM 
also provides digital filtering to confine the transmitted 
analog signal to its assigned passband. 
This module, indicated at 115, generates touch- tones and answer 
tones used by the system to perform conventional dial-up telephone 
signalling. 

The call progress monitoring and control module seen at 117 
provides supervisory control of the telephone link. It performs 
band-pass filtering of the receive samples from the interface card 
in order to detect ringing signals, answer tones, and touch- tone 
signals, and uses the tone generating routines in TONES. ASM at 115 
to produce comparable outgoing tones. 

This module, indicated at 103 along with SCRN.ASM, manages 
the pop-up windows which appear on the host computer's 
screen as part of the user interface. This module employs 
pre -generated character definitions which are specified in 
the separately listed include file SFT_WINS. INC. 
This module provides screen management routines used when 
the system is operating in terminal mode. 
This module defines commonly used numbers and keycodes 
referred to in the other modules. 
The MAIN. ASM module initializes the system and provides the primary user 
interface. In the discussion of MAIN. ASM and the other modules which f Hows, 
unless otherwise n ted, the r utines being discussed will be identified by 
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SCRN.ASM 
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their labels and may be f und within the listing for the particular module 
being described. 

When the system is started (typically by the entry f the program's name 
at the operating system's standard command prompt), it is loaded for execution 
5 from disk, and execution begins at the label SOFT_MODEM. The amount of 

memory allocated to the program is reduced to the size of the program plus the 
size of the stack, and the routine ALLOCATE_BUFFERS is used to create 8k (16- 
bit word) memory buffers for the both the transmitted and received sample 
amplitude values. The video display is then initialized and the routines 
10 INIT_AIC and INIT_DMA are called to initialize the TLC32044 analog interface 
circuit 40 on the interface card 15, and to initialize both the transmit and 
receive DMA -channels. A call is then made to the routine WEDGE_INT (listed in 
INT. ASM) which hooks into the COM2 interrupt (reconfigur able as C0M1 through 
COM4). 

15 A check is then made to determine if the user supplied the name of a 

voice -recording file to be played back along with the program name when the 
program was called at the DOS command line. If so, the routine PLAYBACK_MSG 
(to be discussed) is called immediately, with control thereafter being passed 
to MAIN_EXIT to terminate the program. In this way, the program can be loaded 

20 to play back a recorded voice message without invoking any other functions. 

If no recorded message file was specified, 0N_H00K and SPEAKER_OFF are 
called to insure that hook switch 85 and speaker switch 77 on interface card 
15 are both open, and the routine MAIN_SCREEN is begun. The routine 
INIT_SCREEN (in WIN. ASM) clears the screen and pops up a window for the main 

25 menu. The routine at GET_KEY monitors keyboard input and incoming ringing 
signals . 

If ringing signals are detected, the routine ANSWERINGJiACHINE is called 
to take the telephone line off -hook and then call the routine PLAYBACK_MSG to 
play back a pre-recorded voice message. The routine PLAYBACK_MSG moves the 
30 contents of a disk file, which is a sequential file of digitally- expressed 
voice sample amplitudes, int the transmit buffer, with each transfer being 
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followed by a call to TX_DMA_ON which enables a DMA transfer of the transmit 
buffer's contents for digital- to -analog conversion by the interface card 15. 
To c nserve disk space, the file of digitally- expressed voice samples may be 
compressed prior to storage and decompressed prior to playback. After the 
recorded voice message is played for the caller, SENDJTONES (in TONES. ASM) 
sends a prompting tone to advise the caller that recording is starting. 

The ANSWERINGJ1ACHINE routine then calls RECORD_MSG to record the 
incoming message. A DOS file is opened to record the message, the routine 
INIT_AIC is called to ready the analog interface circuit 40 to receive at 9600 
samples/second, and the incoming samples from the interface board are moved by 
DMA transfer to the receive buffer from which they are recorded on disk, in 4 
kilobyte blocks, in a standard DOS file. 
MAIN MENU FUNCTIONS 

The routine in MAIN. ASM beginning at MENU_COMMAND processes user 
keystrokes to invoke functions selected by the user from the following 
available options which demonstrate the system's capabilities: 

Ml OPERATION 

Fl Go to data mode by calling ORIGINATE_MODE_INIT followed by 

C0MM_M0DE, which takes keystrokes entered by the user and sends 
them to the transmitter (to be discussed), and looks for 
characters from the receiver and puts them on the screen. When 
operating in terminal mode, the user can press the F2 key to enter 
the display box mode by calling INITJ)B0X (in DBOX.ASM) in which 
case the received characters are buffered and keystrokes are 
processed through the display box menu. 

F2 Record voice off the telephone line by calling RECORD J1SG 

discussed above. 

F3 Play back a recorded voice message by calling PLAYBACK_MSG 

discussed ab ve. 
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F4 Send an answer tone over the phone line by calling SENDJTONES 

(listed in TONES .ASM) as discussed above. 

F5 Perform ORIGINATE_M0DE by dialing a phone number (using DIAL in 

TONES. ASM) and, if answered, attempts to establish a modem link 
(using CALLPJMAIN in CALLP . ASM which initiates the expansion card 
and enables the receiving DMA transfers) in 1200 baud originate 
mode (by calling INIT_RECV in DEMOD.ASM), and then calls COMM_MODE 
to perform communications with the remote modem. 



F6 Execute call progress functions by calling CALLPJMAIN (listed in 

CALLP. ASM). 

F7 Execute tone detection by calling TOUCH_TONEJDETECT (listed in 

.CALLP. ASM). 

F8 Execute automated voice message handling by calling 



MESSAGING_SYSTEM. This routine uses DTMF (listed in TONES. ASM) to 
produce the dual dial tones for each digit to be dialed in a 
number taken from a list of numbers to be dialed. 
MESSAGING_SYSTEM plays back a message asking the person who 
answers the remote phone to press the touchtone "1" key on their 
stationset, then waits to accept the response, at which time 
MESSAGING_SYSTEM plays back a prompting message and then records 
the called party's response using PLAYBACK JiSG and RECORD_MSG, and 
then terminates the conversation by calling ON_HOOK. 

Alt-H Toggle between on/hook and off /hook using CHK_0N_0FF_H00K. 

Alt-S Toggle the speaker between on and off conditions using CHK_SPKR. 

Alt-P Change parity by calling NEW_PARITY. 

Alt-A Toggle answering machine enabled/disabled states using CHK_ANSWER_MODE . 
F10 Exit the program and return control to DOS after calling DISABLE_INT 

(listed in INTS.ASM) to restore the original COM2 interrupt vector and 

disabling DMA transmission and reception. 

SCREEN HANDLING ROUTINES 
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As seen In the listing WIN. ASM, the routine FILL_SCREEN fills the screen 
with a background color, WINDOW_UP moves a previously stored window image from 
a screen buffer to the active screen, and WINDOW_FLIP swaps the active screen 
memory with the contents of a screen buffer. 

The screen is initialized for the terminal mode by a call to 
INIT_COMM_SCREEN (listed in SCRN.ASM) which is called when data mode is 
entered. This routine paints the screen blue by calling INIT_SCREEN (in 
WIN. ASM), which in turn calls WINDOW_UP, brings up data mode windows which 
indicate speed and parity, and then saves the written screen to a screen 
buffer for later use. 

SCREEN_OUT (listed in SCRN.ASM) performs the terminal mode functions. 
After checking for special characters, received characters are displayed on 
the screen. Special characters are the line feed, carriage return and 
backspace characters, which are handled by the appropriate display-point 
repositioning functions. If the cursor is on the last line of the screen, a 
line feed or carriage return character causes the screen lines to scroll 
upwards. The routine PRINT_PARITY listed in SCRN.ASM is called to place the 
currently active parity and word length indications on the screen. 

The display box mode is entered by calling INIT_DBOX listed in DBOX.ASM. 
INIT_DBOX calls routines which draw an oscilloscope face on the screen along 
with a menu of display box options (DBOX_MENU) and initializes the video 
controller to enable modification of all video planes. The display box may 
have up to eight points on the screen (POINTO - P0INT7) each of which is 
defined by a data structure of type SCOPE_POINT. The routine PLOT_POINT 
places yellow dots on the screen using the publicly declared horizontal and 
vertical coordinates X and Y. Each dot displayed consists of three lines of 
dots. RESTORE_OLD removes the yellow pixels and replaces them with either 
light gray, dark gray or blue, depending on whether the pixel is positioned on 
the blue background of a reference line. DO_COLOR reads the old point out of 
the data structure and is called three times, nee for each c 1 r. SAVE_COLOR 
saves the bits is als performed once for each col r and saves the bits where 
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the new dots will go. GET_COLOR reads the video RAM and checks for an 
intersection between a new oscilloscope dot and the desired color. The 
eye diagram of the incoming signal is produced by the demodulation routine 
DEHOD in DEMOD . ASM which, at the label DISPLAY_B0X, sets the variables X and Y 
5 and calls PLOT POINT. 



CALL PROGRESS MONITORING 

The routines for monitoring and controlling the telephone circuit 
10 connected to the interface card 15 are listed in CALLP . ASM which begins by 

defining various coefficients and delay line values used by the call progress 
filters. 

The routine CALLP JFILTERS executes a filtering algorithm for each input 
sample value in the received sample buffer, and calculates a mean square 

15 output level value for each filter. As indicated by the comment lines in the 
assembly language listing, the DC component is first removed from the sample 
value, and the input sample is then processed by the ANSWER_TONE_FILTER 
routine, at the end of which a check is made to determine if the system is 
currently waiting for the answer tone to end (which occurs during the 

20 originate mode training sequence to be described) . The voice filtering 

algorithm may then performed to obtain a means square voice level indication 
(in the CALLP. ASM listing, the voice filter algorithm has been commented out 
to reduce runtime, but is retained here for illustration). Next, the call 
progress filtering routine is performed to detect dial tones, busy tones, and 

25 ringing signals. The mean square level (power level) output from each filter 
is transferred into a holding location for CALLP_MAIN to test later whenever 
SAMPLE_C0UNT is decremented to zero. 

The DTMF_FILTERS algorithm performs basically the same function as the 
call progress filters described above, except that the dual tones are written. 

30 In this illustrative embodiment, a filter for the touch- tones for "1" only are 
present, and the detect! n of a received "1" tone is used in the example v ice 
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message handling system implemented by the routine MESSAGING_SYSTEM (in 
MAIN. ASM) described above. The routine GET_TOUCH_TONE detects the "1" touch 
tone and waits for it to terminate. 

The call progress system is initialized by CALLP_INIT which initializes 
5 the analog interface circuit 40 and the input counters. The mean square 

outputs are inspected every 256 sample times (35.5 millisecond intervals) to 
simplify division of the mean square values. 

CALLP_MAIN performs the DMA initialization and waits for 256 samples to 
be received and the filter outputs to be computed. It then tests the mean 

10 square values to determine if an answer tone has a sufficient magnitude (at 
least 4000H and also greater than 1/4 of the total energy on the line) , and 
that such a tone has been present for a predetermined duration. CALLP_MAIN 
also calls PRINT_CALLP which displays the mean square filter output levels 
(useful for testing and debugging). The routines TOUCH_TONE_DETECT and 

15 PRINT_DTMF are similarly available to indicate the receive levels coming 
through the DTMF filters for testing purposes. 

The routine GET_END_ATONE is called after a valid answer tone has been 
detected. It resets the call progress counters to 4.44 milliseconds in order 
to detect the end of an answer tone more quickly This routine also enables 

20 the transmitter DMA to start the 1200 bps transmitter as part of the training 
sequence leading to 2400 baud transmission. The routine then waits for the 
remote location to terminate the answer tone, which triggers the beginning of 
the 1200 bps receiver function. As soon as the end of the answer tone is 
detected, the AIC is set to receive at 9600 samples per second. 

25 

RECEIVER FILTERING, AGO AND INTERPOLATION 

The digitally expressed incoming analog sample amplitudes are processed 
by the microprocessor 22 in the host computer system 20 to filter the desired 
received signals from other signals outside its passband, to split the 
30 incoming signal int its two phase-shifted quadrature components, to r gulate 
the signal level of the incoming signal by m ans f automatic gain contr 1 
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processing, and to compensate for variations in the baud rate of the incoming 
data by an interpolation procedure. All of these steps, which occur prior to 
demodulation, are handled by the module listed in RECVFIL.ASM. 

Filtering consists of running the samples through either a high or low 
bandpass filter to reject the modem's local transmitter. Phase splitting 
reduces the samples to two sets of complex numbers (real and imaginary) for 
each baud time of samples (the baud rate being 600 per second), resulting in 
1200 complex numbers per second. 

The phase splitting occurs at FILTER_PQ in RECVFIL.ASM. FILTER_PQ is a 
two stage filter specifically designed to reduce the number of 
multiplication's and thus reduce execution time. Because of the computational 
burden placed on the host computer's processor when filtering and demodulating 
the incoming analog samples, it is essential that efficient algorithms be 
employed if processors which are in widespread use are to be capable of 
handling the high baud rates employed by conventional modems now in use. Th 
efficiency of the FILTER_PQ routine, when combined with the efficient 
demodulation scheme to be described, has been shown to be capable of receiving 
and demodulating a conventional V.22bis, 2400 baud modem transmissions when 
executed by a conventional IBM-AT class Personal Computer employing an Intel 
80286 microprocessor operating at 12 Mhz. 

As can be seen at the label FILTER_L00P, the Cosine and Sine variables 
are either zero or plus or minus 1/4. These values reduce the number of 
multiplication's and improve operation speed. L0W_STAGE1 and HI_STAGE1 do the 
pass -band to base-band conversion (4800 and 9600 sample rate conversion down 
to 2400 samples per second) . L0W_STAGE1 performs the front end filtering of 
the receive low band samples. 4800 samples per second are reduced to 2400 by 
reading in a single sample and skipping the second because the second Cosine 
is zero for a total of two samples per loop. HI_STAGE1 reads in the 9600 
samples a total of two times, skipping every other one (4 samples per loop) 
thus reducing the number f samples to 2400. Next the utput of the first 
stage is sent through STAGE2 t be filtered. 
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At REAL_DONE t the output value of this routine is divided by 128 or 16 
depending on the AGC reaction speed (AGC computed over 16 or 128 samples) and 
then the absolute value is added to the AGC sum. Each output is then AGCed to 
bring it up to the correct level. 
5 The same samples are then processed in the same way by the imaginary 

filter, DO IMAGINARY. At IMAG_D0NE, the imaginary number is added to the AGC 
sum variable and the multiplication is performed to yield the automatic gain 
controlled output value. At this point, one quarter baud times worth of 
samples (one 2400th of a second) have been computed, and the process proceeds 

10 by reducing the sample rate to 1200 through the interpolator. Because two or 
four samples per loop are being handled, the routine is optimized to reduce 
the number of delay line shifts needed. 

The INTERP0LAT0R_R0UTINES perform the baud loop timing for the modem by 
computing one set of real and imaginary numbers for each two sets of input 

15 samples. The routine also looks for differences in timing between the input 
sample rate and the remote transmitter's sample rate. If the remote 
transmitter's crystal frequency is a littler faster than the sampling rate 
established by the analog interface circuit 40 so that, for example, the 
remote transmitter is sending 1201 real and imaginary pairs per second instead 

20 of the standard 1200, the INTERP0LAT0R_R0UTINES will generate an additional 

pair of samples every second. Conversely, one fewer pair will be generated if 
the remote end is operating at a slower rate than expected. This allows the 
disclosed arrangement to lock onto the remote end's transmitted baud rate 
without having to adjust the rate at which samples are delivered via the 

25 fixed- rate DMA transfers required by the host computer system. 

INTERP0LAT0R_R0UTINES is called by a pointer named BAUDLP_VECT0R 
immediately after the label ADD_IMAG INARY in RECVFIL.ASM. This routine 
alternates between buffering the first set of samples and secondly, computing 
the 1200 rate real and imaginary inputs required by the receiver. Inside 

30 SAVE_S1 there is a c unter called QUAD_C0UNT which, when decremented to zero, 
indicates that it is time to c mpute new interp lator coefficients by a jump 
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to NEW_COEFF . This routine looks at the BAUDJC variable in DEMOD . ASM for an 
underflow or an- overflow. These conditions indicate it may be time to compute 
and extra set of real and imaginary numbers or to skip the next pair. The 
final sets of real and imaginary numbers (Ps and Qs) are stored in buffers 
5 called REAL_BUFFER and IMAG_BUFFER. Because the FILTER_PQ routine can return 
back with anywhere from 1 to 3 sets of Ps and Qs, those sets are buffered so 
that DEMOD can handle the under flow/overflow. 

When INTERPOLATOR_ROUTINES is finished, control is returned to FILTER_PQ 
which then loops three more times, followed by a check to determine if the end 
10 of the receive sample buffer has been reached, and if the filter delay lines 
are full. If so, the delay line variables are copied from the end of the 
buffer to the beginning, the pointers are reset, and the routine is exited. 
By using long buffers for the delay lines, it is unnecessary to constantly 
shift these numbers within the delay lines, thus saving execution time. 

15 

DEMODULATION 

When filtering and interpolation are completed, control is returned to 
label EQUALI ZER_BUF_CHECK in DEMOD (listed in DEMOD. ASM). A check is 
performed to determine if there are two sets of Ps and Qs in the buffers. If 

20 present, they are copied to equalizer input buffers named EQR_DELAY and 

EQIJDELAY. At this time, the BAUD_SUM variable is set for use by the baud 
loop routine used for interpolation. BAUD_SUM is set by adding the absolute 
values of the first set of Ps and Qs and subtracting the second set. 

The next routine provides automatic gained controlled amplification 

25 (AGC) . The first thing done is a check of the baud counter to see if four r 
thirty- two baud times have passed (corresponding to the 16 or 128 divisor used 
to calculate the AGC average in FILTER_PQ as discussed above) . If 
appropriate, a check is then to determine if the flag that indicates a valid 
energy level on the phone line has been set. If not, at ENERGY_CHECK , the 

30 current energy lev 1 ( AG C_AV ERAG E ) is inspected to se if it is above the 

minimum level (-43 dBm) indicated by ENERGY_THRESHOLD . If there is still no 
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energy, jump (via NO_ENERGY) to EQUALI ZER_FULL_CHECK at the end of DEMOD which 
insures that the equalizer delay lines do not overflow. 

If there is energy for the first time, calculate a new AGC multiplier 
(at NEW_LEVEL) and start up the receiver. This routine is needed when the 
user has entered Fl from the initial command buffer (direct to data mode) in 
order not to run the adaptive equalizer with no input signal. If energy has 
already been detected and the correct number of baud times has been reached, 
control is passed to AGC_TESTS. 

Before the AGC tests are performed, a routine labeled CHECK_ALPHA slows 
down the equalizer gain term after 256 baud times. The variable ALPHA is high 
during training so as to bring the receiver up more quickly. After 256 baud 
times, ALPHA is reduced to increase performance and reduce variability. 

If the AGG is in wide band mode (fast reacting) , control then passes to 
WIDEBAND_AGC; otherwise, a check is made to see if the new AGC_AVERAGE is 
either one-half the level or greater than 1.5 times the last AGC_AVERAGE. If 
it is, control is passed to NEWJLEVEL to compute an AGC multiplier just on 
that new value. This lets the receiver act quickly to gain hits on the phone 
line. If neither of these tests pass, the routine adds l/8th of the new to 
7/8ths of the old level, and computes a new multiplier from the sum. In this 
way the AGC reacts smoothly and does not vary quickly, which improves 
performance on a line with little signal level variations. 

COMPUTEJVGC takes the new AGC_AVERAGE and computes AGCJCSUBE and 
AGC_MANT, two variables which are used to adjust any receive signal level the 
optimal level needed by the receiver. Also, the AGC is changed from wide -band 
to narrow mode after the first 32 baud times (as seen immediately before the 
label DISPLAY_BOX in the AGC routine). 

DISPLAY BOX checks the RECV_FLAGS register to see if the user is in the 
display box view mode. If so, the current display box variable is gathered by 
calling the routine pointed to by DBOX ROUTINE and then the appropriate point 
is plotted on the scilloscope screen as noted earlier. 
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The next routine updates the baud loop variables used by the 
interpolator routine in FILTER_PQ. The baud loop is controlled by two 
different loops. A first order baud loop does fine tuning and a second order 
loop makes coarse adjustments to get the baud loop close to the optimal 
timing. Every eight baud times the sign of BAUD_SUM is checked. Depending on 
the sign, a decimal 160 is added or subtracted from BAUDJC. Also, BAUD_SUM is 
divided by 128 and added to L00P_INT2, the second order baud loop integrator. 
LOOP_INT2 is then checked to make sure it stays within the bounds of F200 to 
OEFF, hexadecimal. This puts a maximum limit on how much the baud loop can 
correct for timing differences between itself and the remote modem. 

At BAUD_L00P2, a counter called L00P2_CNT is decremented. When it 
reaches zero, the sign of L00P_INT2 is checked and 160 is added or subtracted 
from BAUDJC. At label GET_NEW - COUNT , L00P2_CNT is reloaded from the table 
BAUD_LOOP2_TABLE (defined at the beginning of the DEMOD.ASM listing 
immediately before the code). The value loaded from BAUD_LOOP 2_TABLE is 
determined by an offset into the table which comes from the high order eight 
bits of L0OP2_INT. As L00P2_INT grows to bigger levels, L00P2_CNT is reloaded 
with a smaller and smaller count, causing the second order baud loop to make 
more frequent adjustments to BAUDJC. BAUDJC is then used by the interpolator 
to know when to skip or add an extra set of Ps and Qs to the equalizer delay 
line. 

The routine EQUALIZERJttJTPUT generates the actual receive data point 
from the incoming Ps and Qs. The algorithm performs a complex number 
multiplication between the complex numbers in the equalizer delay line and the 
complex taps. Each of the last 7 baud times (14 taps) of Ps and Qs are 
multiplied with their respective taps and the results are summed What 
results is the complex number RZN + j IZN, which is the data point. 

In the following routine, PHASE_R0TATI0N, the equalizer output is 
rotated into the correct quadrant by the Cosine and Sine of the phase angle 
PHI. This is done through the multiplicati n of RZN + j IZN by negative 
COSINE + j SINE. The resulting point is RYM + j IYM. 
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The next routine performs the calculations to determine which point in 
the signal constellation RYM + j IYM is closest to. Once this is determined, 
the data pattern associated with this point is known and the demodulation of 
the analog signal is complete. Also, the nearest perfect point is saved into 
5 DEC_R + j DEC_I and an error vector from this point to the point we 

demodulated is generated and stored into R_ERROR + j I_ERROR. There are 
separate routines 1200 and 2400 baud because the signal constellations are 
different. 

For 1200 baud, because there is only four possible points, the process 
10 is as simple as comparing the signs of both RYM and IYM to determine which of 
the quadrants the point resides in. At label DECISION_1200, the sign of RYM 
is tested. If it is positive, the absolute decision point, 49 * 256, is placed 
in DEC_R, and this value is subtracted from RYM to get the error vector, 
R_ERR0R. Also, the offset into DECISIONJTABLE , where the actual data sent 
15 from the other end is decoded, is placed into the BL register. This process 
is repeated for IYM to yield DEC_I and I_ERR0R. At the label READ_DECISI0N, 
the receive data is read out of DECISIONJTABLE and placed into RECV_DATA. 

The process for decoding data at 2400 bits per second is a little 
different in that there are sixteen possible decision points. Consequently, 
20 the routine inspects the sign of RYM and j IYM, as well as their magnitudes. 

Once the error vectors and decision points are determined, the code branches 
to READ_D E C I S I ON and the receive data is read out of DECISIONJTABLE as in the 
1200 case above. 

The next step is to update the taps with the counter-rotated error 
25 vector. By doing this, the taps learn what types of errors are being 

generated by the phone line and they move in a direction that can correct for 
these errors. The counter -rotated error vector is scaled down by ALPHA so 
that the taps cannot be significantly changed by any one baud time error. The 
counter rotation is done my multiplying R_ERR0R + J I_ERR0R by COSINE - j 
30 SINE, and then again multiplied by ALPHA. The results are placed in AREN + j 
AIEN. 
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The routine MTAPJJPDATE multiplies all fourteen of the taps (RW + j 
IW) by (AREN + J AIEN) . Before this, however, the taps are all "bled" a 
little to keep them from becoming too big. This is done by repeating the 
macro BLEEDJTAP (defined at the beginning of the DEMOD. ASM listing) 28 times, 
each time adding four to a negative tap or subtracting four from a positive 
tap, thus pulling all taps toward zero. BLEEDJTAP is performed for both the 
real and imaginary parts of all taps. 

Next, the phase loop is updated so that it can recalculate COSINE and 
SINE for the next baud time. To do this, the output of the equalizer RYM + j 
IYM must be multiplied by the negative of the decision point DEC R - j DEC I. 
Only the imaginary vector is needed so RERR need not be recalculated. Thus, 
IERR - (IYM * DEC R) - (RYM * DEC I). Also, the routine multiplies I ERR by 
two to meet the needed gain for PHASE_UPDATE, 

PHASEJJPDATE employs a first and second order phase loop which locks 
onto the phase roll of the remote transmitter. PHI is the new phase angle 
determined by the code. The upper eight bits of PHI are then used to access a 
pre-computed COSINE and SINE from the tables listed in TONES. ASM. This 
algorithm use of tables indexed by the phase angle PHI substantially improves 
execution speed by eliminating multiplications. 

The S1_DETECT routine functions is a matched filter which detects the 
presence of the SI digit sequence defined in the V.22bis CCITT specification. 
The SI transmit sequence is used to signal the remote receiver that the other 
end is a 2400 baud modem, or that the other end wants to initiate a 2400 baud 
retrain. The SI sequence is composed of unscrambled 11 's then 00 's at 1200 
baud that create a specific tone on the line. S1_DETECT determines the 
presence of the tone by looking at the numbers in the real equalizer delay two 
baud times apart. If the difference in these numbers is above a certain 
threshold a counter, SlJttUNTER, is incremented. If the difference is below 
the threshold, the counter is decremented by four. If the counter ever 
reaches 20, SI has been detected. 
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The routines starting, at DATA_DECODE perforin the necessary computations 
to parse the incoming data stream into ASCII characters. 

At 1200 baud, the two received data bits are stored in bits 2 and 3 of 
RECV_DATA. 

At 2400 baud, the incoming data is decoded in accordance with the V.22 
and V.22bis specification, bits 0 through 3 are valid data. First, 
differential decoding is performed by subtracting the previous baud times' 
bits 2 and 3 from the baud time's data. Next, the Gray decoding process 
checks bit 3 and, if it is zero, bit 2 is inverted. Descrambling parses four 
bits at a time so that, at 1200 baud, the first baud times data bits are 
placed into DATA_1200, the routine waits for the second baud times data, and 
then combines the two at COMBINE_1200_DATA before descrambling. DESCRAMBLE_4 
performs the descrambling routine specified in V.22 and V.22bis. 

After the descrambler, the data is now in the same format as sent to the 
modem by the remote data terminal equipment: asynchronous ASCII data. The 
routine then searches the incoming data for a start bit, parse the next eight 
data bits into an ASCII character, and then puts the result into the receive 
character buffer for the terminal loop to display on the screen. 

At RECEIVE_PARSER , a state variable R_PARSE_JMP is tested to see if it's 
zero and, if it is, the routine jumps to CHECK_FOR_START to look at the four 
bits out of the descrambler to see if there are any zeros present. If there 
are, the data is moved into R_PARSEJ)ATA, and R_PARSE_JMP is set to PARSE_8. 
The next time into the loop, RECEIVE_PARSER jumps to PARSE_8 where the next 
four receive bits are combined into R_PARSE_DATA. Four data bits are still 
needed to complete the ASCII data, so R_PARSE_JMP is set to PARSE_12. 

At PARSE_12, enough data has been collected to form the character, so it 
is now necessary to determine where the character is in the received 12 bits 
of data. This depends on where the start bit is located. PARSE_12 begins by 
shifting the received 12 bits right until a zero enters the carry flag. Once 
a zero is d tected, the ight data bits of the receive character are in the AL 
register, fr m which they can be stored int RX_CHAR_BUF, and the pointers 
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into R_CHAR_BUF are updated. The bit counters are then checked to see how 
many of the received 12 bits are left. Depending on where the start bit was 
located there can be up t three data bits left over. These bits are checked 
to see if there is another start bit. If there is, the routine recreates 
5 R_PARS E_DAT A so that it has four valid bits in the low order and resets 

R_PARSE_JMP to PARSE_8. Code outside the interrupt handling routines checks 
to see if any characters have been placed in RX_CHAR_BUF and displays them in 
terminal mode. 

The last thing done by the receiver, at EQUALIZER_FULL_CHECK , is to make 
10 sure that the equalizer delay line buffers are not full. The previous 6 baud 
times worth of Ps and Qs must always be available; consequently, when the 
equalizer is full, the last 12 Ps and Qs are copied to the beginning of the 
EQR_DELAY and EQI_DELAY. Also, the EQUALIZER_IN pointer is reset to point 
into location 13. 

15 

MODULATION 

The transmitter routines listed in TX.ASM are substantially less complex 
than the demodulation routines because modulation is a determinate process. 
The first two routines in TX.ASM, INITJTX and SETUP_SAMPLE_COUNT, 

20 initialize the transmitter variables. INITJTX resets the pointers into the 
transmitter sample buffers and calls SETUP_SAMPLE_CNT which tests to see if 
transmission is to be performed in the low band (8 samples per baud time) r 
high band (16 samples per) . SETUP_SAMPLE_COUNT also sets up the transmit 
buffer threshold, SAMPLE_COUNT , to either 100 samples for low band or 200 for 

25 high band. SAMPLE_C0UNT insures that there are always enough samples in the 
buffer to handle the case where the transmitter routine will not receive 
control for a prolonged period (which occurs, for example, when interrupts are 
turned off while the PC is changing video modes). This safeguard adds a 20 ms 
delay into the transmit path. 

30 TX1224, the code which performs the actual transmission, is reached 

through the transmit vector, TX_VECT0R, in the interrupt handling routine 
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SOFTMODEM in INTS.ASM which, as described above, receives control each time 
the interface , card 15 generates an interrupt at every 16th receive sample. 

The first thing TX1224 does is check the number of samples in the 
transmit buffer. If the count is less than SAMPLE_COUNT , another baud times 
5 worth of samples is processed. DOJTX is the actual start of the transmitter 
process. Flags are first checked to see if the system is operating in a 
forced data mode in which all marks (ones) or the dibit pattern SI is to be 
sent. If either of these flags is set, control is passed to SEND_MARKS. 

At CHECK_TX_DATA , the routine first checks to see data is being parsed. 

10 If so, control is passed to the routine pointed to by T_PARSE_JMP. If not, 
control is passed to CHECK_TX_CHAR where a test is performed to determine if 
any ASCII characters to be sent are present in TX_CHAR_BUF. If there are 
none, control is passed to SEND_MARKS. If characters are ready to be sent, 
they are read from TX_CHAR_BUF, the pointers to that buffer are updated, and a 

15 start bit is inserted into the data before it is stored in SEND_DATA. The 
parser vector, T_PARSE_JMP, is set to PARSE_4_2_DATA. 

The PARSE_DATA routines are listed at the end of TX.ASM. PARSE_4_2_DATA 
sets the parser vector to PARSE_2_DATA, obtains the next four data bits of the 
ASCII character and returns. PARS E_2_DATA then takes the last data bit of the 

20 character, appends on three stop bits, and checks for another character to be 
sent. If there are no more characters to be sent, the routine resets 
T_PARSE_JHP to zero and returns. If there is a character to be sent, the 
routine gets the character and updates the buffer pointers, and then shifts 
the character left three bit positions such that this new character is given a 

25 start bit. The routine then inserts the two remaining bits of the last 

character and saves it off. Next, the new character is shifted right by four, 
a stop bit is inserted, and T_PARSE_JMP to set to PARSE 4_4_DATA. 
PARSE_4_4_DATA parses the next four bits of the TX char and sets T_PARSE_JMP 
to PARSE_4_0 DATA. PARSE 4_0_DATA parses the last three bits of the second 

30 data byte plus the st p bit and resets T_PARSE_JMP t zer s that th pr cess 
is returned t state 0. 
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As seen in TX.ASM at SCRAMBLER, the data is scrambled using the 
algorithm specified by the V.22 and V.22bis specification. At CHECK_1200, the 
low order two bits of the scrambler output are saved for the next baud time. 
The next two processes, GRAY_ENCODE and DIFF_ENCODE perform the appropriate 
5 Gray and differential coding defined in the V.22 and V.22bis specification. 

The next routines process the transmit data into sample amplitude values 
which are delivered to the interface card 15 for digital- to -analog translation 
by the AIC 40. For each possible data value there are six sets of samples, 
and the pointers to these samples are called AN0_PTR, AN1_PTR, AN2JPTR, 

10 BN0_PTR, BN1_PTR, and BN2_PTR. AN0_PTR and BN0_PTR are read from a table at 
an offset location equal to the current transmit data value. The other four 
pointers are the ANO and BNO pointers saved from the last two baud times. 
Next, the transmit sample is created by adding the three values pointed to by 
the AN pointers, multiplying them by 1 or -1 depending on which sample is 

15 being formed, and putting the result into TEMP_TX_BUF . Next, the three values 
pointed to by the BN pointers are added together and the sum is either added 
or subtracted from the corresponding TEMP_TX_BUF value depending on the 1 or 
-1 multiplier. This process is done for either 8 or 16 samples, depending on 
whether transmission is to be made in the low or high band respectively. Once 

20 the samples are completely formed in TEMP_TX_BUF, they are copied into the 
transmit sample buffer making sure to take into account the position of the 
end of the buffer. 

When transmitting low band samples during the training sequence, it is 
necessary to change the receive sample rate from 7200 samples per second 

25 (needed for call progress functions) to 9600 samples per second needed by the 
receiver code. To change the sampling rate, AIC commands are imbedded into 
the data stream in the routine SEND_AIC_CMDS . This routines takes a transmit 
sample, ORs it with binary 3 which tells the AIC there is a command following 
this data sample, and the puts the command into the next location. To change 

30 the sample rate, two consecutive commands are sent. 
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The process differs during high band transmission. Alternating samples 
are filled with the sum of the AN's and then the sum of the BN's, and the need 
to send AIC commands does not arise; consequently, there is always room in the 
sample buffer for a full baud times worth of samples. Once the TX samples 
5 have been moved into the TX sample buffer, the HIGH_BAND_FILTER routine shifts 
the AN and BN delay lines and returns. 

The functions provided to the user by the program described are, of 
course, merely illustrative of the communications functions which can be 
implemented by suitably programming the host processor to exchange information 

10 with the interface card. In addition to the 1200 baud, originate mode modem 
communications capability implemented as operational code in the program 
listing which follows, much of the code necessary to implement 2400 baud 
V.22bis modem communication is also included in the following listing, 
although a fully operative 2400 baud system has not been completed and henc 

15 the 2400 baud routines that are included have not been fully tested. It 

should also be noted that the disclosed hardware, suitably programmed, can 
provide a variety of additional functions, such as facsimile and synchronous 
data transmission, as well as other modem modulation schemes such as the Bell 
208 or U.S. Robotics HST asymmetrical transmission modes. Additional routines 

20 for performing more elaborate line equalization, echo suppression, adaptive 
transmission rate adjustment ("fall forward" and "fall back" to adjust to 
transmission noise conditions) , error correction and data compression 
algorithms can be readily implemented by programming the host processor to 
manipulate transmitted and received data, either on either a concurrent, real- 

25 time basis, or by processing the data before transmission begins or after it 
concludes. It should also be noted that, because the telephone 

interface operates under direct control of the host processor, it is 
unnecessary to embed control sequences (e.g. AT command code sequences) within 
the data stream to provide communications control functions. It is 

30 acc rdingly possible t much more rapidly respond t events which ccur, 
either in the host c mputer, the teleph ne link, or at the remote data 
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terminal equipment, so that flow control procedures (for example) can be more 
rapidly, m re transparently, and m re effectively handled than is currently 
possible with separate m dems which must be controlled by escape signals 
imbedded in the data stream, typically with mandatory guard times which 
accompany the unique pattern of characters forming the escape signal. 

Most importantly, however, the present invention is implementing 
virtually any voice or digital communications function which can be 
accomplished over voice -grade lines without needing different hardware. This 
versatility is achieved by transferring substantially all of the functionality 
from the conventional separate communications processor (which is typically 
programmed with resident firmware and/or employs special purpose analog or 
digital circuitry for signal processing functions) to the available processor 
in the host computer, which can be programmed to perform a suite of functions 
whether presently available or yet to be developed. 

It is to be understood that the arrangement which has been described, 
and which is implemented by the programs listed below, is merely illustrative 
of one application of the principles of the invention. Numerous modifications 
may be made by those skilled in the art without departing from the true spirit 
and scope of the invention. 

PROGRAM LISTING 

The assembly language listing for the modules discussed above appears 

below: 
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%%%%%%%%%%%%% COPYRIGHT 1993 U.S. ROBOTICS, INC. %%%%%%%%%%%%%%%% 

model small 

286 

stack 200h 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%% 

MAIN (the user interface Into the modem) 

Main sets up the DMA channels and initializes the modem 
interrupts . 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
include equates 

public vidjnode , rx_sample_segment p tx_sample_segment 

public ds_segment , tx_dma_alal6 , rx_dma_alal6 

public se t_aic_bands , init_dma , speaker_on , speaker_of f 

publ ic onjiook , of f _hook , tx_dma_of f f rx_dma_off 

public display_segment , attribute , init_aic 

public inlt_aic_tx48_rx72,sreg . 

publ ic ini t_tx_dma , tx_dma_on 

publ ic rx_dma_on , main_f lags 

extrn ini t_dbox : near , init_tx : near , init_recv : near 

extrn demod : near, txl224 : near ,softmodem: near 

extrn dbox_address : near , init_timer : near 

extra disable_int : near , wedge_int : near 

extra nul_routine : near , send_tones : near 

extrn dial : near , ini t_screen : near , window_f lip : near 

extra r ing_detect: near, no_ring_state: near 

extra save_screen: near , res tore_screen : near 

extra ini t_comm_screen: near, screen_out: near 

extra callp_main : near , pr int_par i ty : near 

extra touch_tone_de tect : near , dtmf : near , ini t_callp : near 

extra get_callp : near, get_touch_tone : near 

extra rx_char_in : word , rx_char_out : word 

extra tx_char_in : word , tx_char_out : word 

extra rx_char_buf _s tart : word , rx_char_buf_end : word 

extra tx_char_buf _s tart : word , tx_char_buf _end : word 

extra recv_f lags : word , rx_out : word , baud_count : word 

extra tx_in_p tr : word , tx_f lags : word 

extra recv_vec tor : word, txjvec tor : word 

extra freq : word, ring_state: word 

extra main_menu:byte , start_message rbyte , end_message :byte 
extra int_f lags : byte , outgo ingjnsg : byte , rec rding_msg : byte 

buffer_word_size equ 8192-1 
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stack_length 
rx_buf_len equ 
tx_buf_len equ 



.data 



10 



15 



20 



25 



30 



35 



40 



45 



main_flags dw ? 

main_f lags . 0 - 1 

main_f lags . 1 - 1 

main_f lags . 2 - 1 

main_f lags . 3 - 1 

main_flags.4 - 1 

main_flags . 5 - 1 



main_f lags . 8 
main_f lags . 9 
main_f lags . 10 



dbox_ok db 
vid_mode db ? 
out_latch db ? 
temp_address_low dw 
temp_address_high dw 
init_AIC_tx96_rx96 

dw 

init_AIC_voice 

dw 

init_AIC_tx48_rx96 

dw 

init_AIC_tx48_rx72 

dw 



init AIC tx96 rx48 



init AIC tx48 rx48 



ds_segment 
psp_segment 



dw 

i 

dw 

dw 
dw 



equ 200h/16 
8192 * 2 
8192 * 2 



No recv data 

Auto -answer in data mode versus voice mode 
TX DMA on 
Ignore Loop Loss 
Loop loss status 
Annouce rings 



• 1 Odd/Mark - 0 

- 1 Force parity 

- 1 Parity ON 



Even/Space 



? ; 00 - graphics adaptor present 
; save the old video state 
; image of output latch 

? 
? 

dw 9 l 9,3 f 0ff47h,03h,le3ch,03h,0dh 

0311,387211,0,0,0,0,0,0 

dw 9,9,3,0ff47h,03h,lc38h,03h,0dh 

03h,50a2h,0,0,0,0,0,0 ; RX 7200 

dw 9,9,3,0ff47h,03h,383ch,03h,Odh 

03h,3c72h,O,O,0,0,O,O 

dw 9,9,3,0ff47h,03h,3838h,03h,0dh 

03h,3ca2h,0,0,0,0,0,0 

dw 9,9,3, Of f 47h , 03h , le70h , 03h , Odh 

03h,387ah,0,0,0,0,0,0 

dw 9,9,3, Of f 47h , 03h , 3870h , 03h , Odh 

03h,3c7ah,0,0,0,0,0,0 



program segment prefix 



Dynamically allocated sample buffers 
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tx_sample_segment dw 
tx_dma_alal6 
tx_dma_page dw 

rx_sample_segment dw 
rx_dma_alal6 
rx_dma_page dw 

ram_error_msg 
shrink_err r_msg db 
disp 1 ay_s e gment 



? 

dw 

? 

? 

dw 

? 



db cr,lf, 'Insufficient RAM' ,cr ,lf , '$' 
cr, If, 'Error during RAM shrink' ,cr f If , '$' 
dw ? 
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attribute db . . ? 

EVEN 

playback_file db 'msgl.dat' ,0,0,0,0,0,0,0 

; MODEM SPECIFIC REGISTERS 

sreg dw 1,0,43,13,10,8,2,30,2,17,7,70 

.code 

SOFT_MODEM PROC NEAR 

mov dx,@data 

mov ds , dx 
eld 

mov p sp_s e gment , e s 

mov ds_segment , ds ; save for further reference 

; shrink RAM to the size of the program 

mov bx,ss ; find the end of the program 

add bx,stack_length ; add length of the stack in paragraphs 

mov ax,es 

sub bx,ax ; subtract start of the program 

inc bx ; add one for good measure 

mov ah,4ah ; shrink ram 

int 21h ; ES points to PSP 

mov dx, offset shrink_error_msg 

jc alloc_error 

mov es,ds_segment 

call allocate_buf fers ; get the two 8K word sample buffers 

jnc alloc_ok 

mov dx, offset ram_error_msg 
alloc_error: 

mov ah,09h 

int 21h 
exit_Jmp: 

jmp main_exit 

alloc_ok: 

mov out_l a t ch , 0 f fh 

mov ah,0fh ; get the current video mode and save 

int lOh 

mov vid_mode , al 

; presence test for EGA/VGA 

mov dbox_ok , 0 

xor bx,bx 

mov ax,la00h ; VGA display info 

int lOh 

cmp al,lah ; AL returned as lah if supp rt d 
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jne no_vga 

mov db x_ok,0ffh 

jmp short presence_done 



_vga: 
mov 



ah,12h ; EGA display info 



mov bl f lOh 

int lOh 

cmp bl f 10h ; if bl remains the same the no EGA 

je presence_done 

10 mov dbox_ok,0ffh 

presence_done : 
; get the display segment 

int llh ; color or monochrome monitor ? 

and ax f 30h 

15 cmp ax,30h 

mov display_segment •, mono 

mov attribute , 07h 

j e mono_disp 

mov attribute, Olbh 

20 mov display_segment,color_seg 

mono_disp: 

mov main_f lags , 0 ; 
IF board 

25 lea si, init_aic_tx96_rx96 ; tx 9600 rx 9600 

call init_aic 

call init_dma 

mov ring_state, offset no_ring_state 

30 mov recv_vector,offset ring^detect 

mov tx_vec tor, offset nul_routine 

call wedge_int 

; check for any command line options 

35 mov es ,psp_segment 

mov bx , 80h 

mov cl,[es:bx] ; get the command line option count 

xor ch,ch 

inc bx 

40 cmp cx,0 

je ini t_ring 
space_loop : 

mov al,[es:bx] 

inc bx 

45 cmp al, 9 9 

jne got_char 

loop space_loop 
got_char : 

dec bx 

50 lea si,playback_file 
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cmp 


cx,12 


jle 


get_name 


mov 


cx f 12 


get_name : 




mov 


al . f es :bx1 


inc 


bx 


mov 


[ds:si] ,al 


inc 


si 


space_of f : 




loop 


get_name 


xor 


al 9 al 


mov 


[ds:si] ,al 


call 


speaker_on 


lea 


dx , playback_f ile 


call 


playbackjnsg 


call 


speaker_off 


jmp 


main_exit 


ini t_ring: 




push 


ds 


pop 


es 



1° 

terminate 

mov [ds:si] ,al 
call speaker_on 

15 



20 



; re-init all the vectors 
25 mov ring_state f offset no_ring_state 

mov recv_vector, offset ring_detect 
mov tx_vector, offset nul_routine 





call 


on_hook 


30 


call 
ENDIF 


speaker_off 




main_screen: 




; hide the cursor 


35 


mov 


ah f 02h 




xor 


bh.bh 




mov 


dh f 25 




mov 


dl,0 




int 


lOh 


40 








and 


main_f lags , 0700h 




call 


init_screen 




call 


print_parity 


45 


main_loop : 
IF board 






call 


on_hook 




ENDIF 






no_hangup : 




50 


lea 


si, main_menu 



every thing but parity 
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call 



wind w_flip 



g t_key: 



10 



15 



20 



25 



30 



35 



40 



45 
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mov 


ah.l 


int 


16h 


j i La- 


111 t? LIU wWUUIlclIlO 


test 


int_flags,b0 






and 


int_f lags , Of eh 


test 


main_flags,b0 


jnz 


aa_data 


lea 


si t mdiu menu 


call 


window_flip 


call 


answe r ing_mach ine 


jmp 


short main_loop 


data: 




call 


aa_comm_mode 


jmp 


short main_loop 


iu command: 


mov 


ah,0 


int 


16h 


cmp 


ax.Fl 


jne 


chkjrecord 


lea 


si,main_menu 


call 


window_flip 


call 


orlginate_mode_init 


call 


comm_mode 


IF board 




jmp 


short init_ring 


ELSE 




jn>P 


short main_screen 


ENDIF 




:_record: 




cmp 


ax,F2 


jne 


chk_playback 


lea 


si,main_ menu 


call 


window_flip 



check for ring 
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10 



40 



45 



call off_hook 

call speaker_off 

or main_flags,b3 ; ignore loop loss 

lea si , s tart_message 

call window_flip 

mov ah,0 ; get a key 

int 16h 

lea si , s tar t_mes sage 

call window_flip 



lea si , endjnessage 

15 call window_flip 

IF board 

lea dx t out_msg 

call record_msg 
20 ELSE 

mov ah , 0 

int 16h 
ENDIF 

25 lea si , end__message 

call window_flip 

jmp main_loop 

30 chkj>layback: 
IF board 

cmp ax,F3 

jne chk_tone 

35 lea si,main_menu 

call window_flip 

call on_hook 

call speaker_on 

try_again: 

lea dx , playback_f ile 

call playback_msg 

jc bad_play 

mov bx, offset playback_file 

inc byte ptr [bx+3] 



n _files: 
50 call speaker_off 
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jmp main_loop 



bad_play: 




m v 


bx, offset playback_file 


cmp 


byte ptr [bx+3] t '1' 




no_files 


mov 


byte ptr [bx+3] , '1' 


jmp 


short try_again 


ENDIF 




chk_tone : 




cmp 


ax,F4 


jne 


chk_dial 


lea 


si,main_menu 


call 


window_flip 



IF board 

call speaker_on 
ENDIF 



mov f r eq , t one_2 225 
mov ax, 1000 
call send tones 



; ten seconds 



IF board 

call speaker_off 
ENDIF 



jmp main_loop 



chk_dial: 
cmp 
je 



ax,F5 

originate_mode 



jmp chk_F6 

originate_mode : 

lea si.mainjnenu 
call window_flip 

call dial 
IFE board 

jmp no_hangup 
ELSE 

mov 

mov 

call 

jnc 

jmp 

g t_atone: 



sreg+9 , 17 

sreg+7,30 

callp_main 

got_atone 

main_loop 



600 ms of answer tone 
30 second time out 
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call 



setup_lo p_current 



or 
call 

and 
call 

or 

; cmp 

; je 
; and 
; call 
; no_dboxl : 
call 

cli 
mov 
call 
mov 

; enable DMA channel 2 RECV DMA 

call rx_dma_on 
sti 

wait_connect: 

test recv_flags,b5 

j z wa i t_conne c t 

call speaker_off 

mov rx_char_in, offset rx_char_buf_start 

mov rx_char_out, offset rx_char_buf_start 

call comm_mode 
jmp init_ring 
ENDIF 

chk_f 6 : 



cmp 


ax,F6 


jne 


chk_ 1 t one_de t ec t 


lea 


si .mainjmenu 


call 


window_flip 


call 


callp_main 


jmp 


no_hangup 



recv_flags,lh ; recvjiigh 

init_c mm_screen 

main_flags,NOT bO 
init_recv 

recv_f lags , 08h ; data mode 

dbox_ok,0 
no_dboxl 

recv_flags,0fff7h 
init_dbox 

init rx dma 



ax, 150 
init_ timer 

recv_vector, offset demod 



chk_tt ne_detect: 
cmp ax,F7 

j ne chk_me s s age_sy s t em 
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lea 


si,main_menu 


call 


wind w_flip 


call 


off_ho k 


call 


speaker_on 


call 


touch_tone_detect 


call 


on_hook 


call 


speaker_off 


jmp 


no_hangup 



chkjnes s age_sy s tern : 



cmp 


ax f f8 


jne 


chk_on_off_hook 


lea 


si f main_menu 


call 


window_fllp 


call 


messaging_system 


jmp 


no_hangup 



chk_on_of f _hook : 
IF board 



cmp 


ax , ALT_H 


jne 


chk_spkr 


mov 


dx , modem_board 


xor 


outmatch, 1 


mov 


al , out_latch 


out 


dx,al 


jmp 


get_key 


chk_spkr : 




cmp 


ax,ALT_S 


jne 


chk_parity 


mov 


dx , modem_board 


xor 


outmatch, 8 


mov 


al,out latch 


out 


dx,al 


jmp 


get_key 


ENDIF 





chkjparity: 

cmp ax,ALT_P 

jne chk_answer_mode 



call new_parity 
jmp get_key 



10 



15 



20 



25 



30 



35 



40 



45 



chk_answer_mode : 

cmp ax , ALT_A 
jne chk_exit 



xor 
jmp 

chk_exlt: 
cmp 
je 
jmp 



main_flags,b5 
getjcey 



ax,F10 

main_exit 

get_key 



; change answering machine answer mode 



main_exit: 

call disable int 



mov 
int 
mov 
int 

mov 
xor 
int 



ah, 15 
lOh 
ah,0 
lOh 

ah,4ch 

al,al 

21h 



CLS 



; exit 



SOFT_MODEM ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
INIT DMA PROC NEAR 
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call 


tx_dma_off 




call 


rx_dma_off 




mov 


dx,wr cmd 


; command register 


mov 


al ,00000000b 


out 


dx,al 




jmp 


$+2 




mov 


dx,wr mode 




mov 


al, 01011001b 


; channel 1 


out 


dx,al 




jmp 


$+2 




mov 


al, 01010110b 


; channel 2 


ut 


dx,al 




jmp 


$+2 
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call init_tx_dma 
call init_rx_dma 

ret 

INIT_DMA ENDP 

;%%%«%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
10 INIT_TX_DMA PROC NEAR 

mov dx,wr_clr_byte_ptr ; init flag to low byte 

out dx,al 

jmp $+2 

15 

mov ax , tx_dma_alal6 
; AX contains Al - A16 of the tx buffer 

mov dx , dma_5_addr e s s 

out dx , al 

20 jmp $+2 

mov al,ah 

out dx,al 

jmp $+2 

25 mov ax , tx_dma_page 

mov dx , dma_5_page 

out dx , al 

jmp $+2 

30 mov dx,wr_clr_byte_ptr ; init flag to low byte 

out dx,al 

jmp $+2 

; Write the buffer size to each channel 

35 mov ax,buffer_word_size 

mov dx , dma_5_count 

out dx,al 

jmp $+2 

mov al f ah 

40 out dx,al 

jmp $+2 

ret 

45 INITJTXJDMA ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
INIT_RX_DMA PROC NEAR 

50 
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mov dx , wr_clr_by te^ptr 
out dx , al 
jmp $+2 



init flag to low byte 



setup the receive buffer samples 





mov 


ax, rx_dma_alal6 




mov 


dx, dma 6 address 




out 


dx,al 




j*p 


$+2 


10 


mov 


al, ah 




out 


dx, al 




jmp 


$+2 




mov 


ax , rx_dma_page 


15 


mov 


dx, dma_6_page 




out 


dx,al 




jmp 


$+2 




mov 


dx,wr clr byte ptr 


20 


out 


dx.al 










mov 


dx dma. 6 eounf 

>*•» , > tun* w wvuiw 




mov 


ax , buf f er_word_size 


25 


out 


dx.al 




jmp 


$+2 




mov 


al.ah 




out 


dx , al 




jmp 


$+2 


30 








ret 






INIT_RX_DMA 


ENDP 


35 


;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%; 




INIT_AIC 


PROC NEAR 




; disable DMA channels 


40 


call 


rx_dma_off 




call 


tx_dma_off 




mov 


dx, wr cmd ; 




mov 


al ,00000000b 


45 


out 


dx.al 




jmp 


$+2 




mov 


dx , wr mode 




mov 


al ,01011001b 


50 


out 


dx.al 



init flag to low byte 



; command register 



; channel 1 



45 



jmp $+2 



mov 



dx,wr_clr_byte_ptr ; init flag to 1 w byte 



out dx , al 

5 jmp $+2 

mov ax , tx_dma_alal 6 
; AX contains Al - A16 of the tx buffer 

mov dx , dma_5_address 

10 out dx,al 

jmp $+2 

mov al , ah 

out dx , al 

jmp $+2 

15 

mov ax , tx_dma_page 

mov dx , dma_5_page 

out dx , al 

jmp $+2 

mov dx,wr_clr_byte_ptr ; init flag to low byte 

out dx,al 

jmp $+2 

25 ; Write the buffer size to each channel 

mov ax t buf f er_word_size 

mov dx , dma_5_count 

out dx , al 

jmp $+2 

30 mov al , ah 

out dx f al 

jmp $+2 

end_dma : 
35 ; reset the AIC 



20 





mov 


dx , modem_board 




and 


out_latch, Ofbh 




mov 


al , out_latch 




out 


dx,al 


40 


mov 


c X> 100 




here2 : 






loop 


here2 




or 


outmatch f 4h 




mov 


al,out latch 


45 


out 


dx.al 



; DS:SI already setup 
xor di , di 

mov es , tx_sample_segment 
50 mov cx,16 
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rep movsw 



; enable DMA channel 1 





call 


tx_dma_on 


5 


wait_aic : 






mov 


dx , wr_clr_by te_p tr 




out 


dx 9 al 




jmp 




10 


mov 


dx , dma_5_count 




in 


al,dx 




mov 


bl.al 




jmp 


$+2 




in 


al.dx 


15 


mov 


bh,al 




cmp 


bx,buffer_word_size - 14 






wait_aic 




; disable DMA channel 1 


20 


call 


tx_dma_off 




; clear out 


the AIC commands 




mov 


es.tx sample segment 




xor 


di,di 


25 


mov 


cx,ll 




xor 


ax, ax 




rep 


stosw 




; AIC has been initialized 


30 


ret 






INITJUC 


ENDP 









init flag to low byte 
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%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
MISC ROUTINES PROC NEAR 



offjiook: 

mov dx , modem_boar d 

40 and out_latch , Of eh 

mov al , out_latch 

out dx,al 
ret 

45 on_hook: 

mov dx , modem_board 

or out_latch,l 

m v al,out_latch 

out dx , al 

50 ret 



47 
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speaker_on: 
mov 
and 
mov 
out 
ret 

speaker_of f : 
mov 
or 
mov 
out 
ret 



dx , modem_board 
out_latch,0f7h 
al , out_latch 
dx,al 



dx , modem_board 
outmatch, 8 
al f outmatch 
dx,al ~ 



15 



MISC ROUTINES 



ENDP 



20 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
ALLOCATE_BUFFERS PROC NEAR 
; get TX buffer first 



25 



30 



35 



40 



45 





mov 


ah,48h 


; allocate memory 




mov 


bx,400h 


; 16K bytes 




int 


21h 






Jc 


error_exitl 




now 


find 


out if the DMA address register will overflow 


AX - segment 






mov 


tx_sample_segment , ax 




mov 


bx,ax 






shl 


ax, 4 






rol 


bx,4 






and 


bx,0fh 






shr 


bx,l 






rcr 


ax, 1 






shl 


bx,l 


; restore A16 - A23 




mov 


tx_dma_page ,bx 






mov 


tx_dma_alal6 , ax 






cmp 


ax, 0 


; if the DMA address is positive 








; then don't worry. . .be happy 




jge 


no_problem 






add 


ax,2000h 


; word count 




cmp 


ax,0 






jl 


no_problem 


; still enough words 


the 


last 


buffer won't work 


so get the next, it will 




mov 


ah,48h 


; allocate memory 




mov 


bx,400h 


; 16K bytes 




int 


21h 



50 



error exltl: 
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jc rror_exit 

mov tx_sample_segment , ax 

mov bx v ax 

shl ax, 4 

rol bx,4 

and bx,Ofh 

shr bx,l 

rcr ax, 1 

shl bx,l ; restore A16 - A23 

mov tx_dma_page , bx 

mov tx_dma_alal6 , ax 

no_problem: 

; Now get the RX buffer 

mov ah,48h ; allocate memory 

mov bx,400h ; 16K bytes 

int 21h 

jc error_exit 

; now find out if the DMA address register will overflow 
; AX - segment 

mov rx_sample_segment , ax 

mov bx,ax 

shl ax ,4 

rol bx,4 

and bx,0fh 

shr bx,l 

rcr ax,l 



shl bx,l ; 

mov rx_dma_page,bx 

mov rx_dma_alal6 , ax 

cmp ax , 0 ; 

jge good_exit 

add ax,2000h ; 

cmp ax,0 

jl good_exit ; 

; the last buffer won't work so 

mov ah 9 48h ; 

mov bx,400h ; 

int 21h 

jc error_exit 



restore A16 - A23 



if the DMA address is positive 
then don't worry... be happy 

word count 

still enough words 
get the next, it will 
allocate memory 
16K bytes 



mov rx_sample_segment , ax 

m v bx,ax 

shl ax, 4 

r 1 bx,4 
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and 
shr 
rcr 



bx.Ofh 
bx.l 
ax, 1 



10 



15 



20 



25 



30 



35 



AO 



45 



bx.l 

rx_dma_page ,bx 
rx_dma_alal6 , ax 



rest re A16 - A23 



shl 
mov 
mov 

good_exlt: 
clc 

error_exit: 
ret 



ALLOCATE_BUFFERS ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%% 

i 

RECORD_MSG PROC NEAR 
. data 

in_file 
handle 

end_flag db 
start_msg db 
end_msg 

bad — create db 

.code 



db 'msgl.dat',0 
dw ? 
? 

cr.lf.'Hit a key to begin recording' ,cr, If, '$' 
db cr,lf,'Hit a key to stop recording' ,cr, If , '$' 
cr,lf,'Bad fii e create' ,cr, If, '$' 



mov 
xor 
int 
jnc 
lea 

file ok: 



ah,03ch 

cx,cx 

21h 

file_ok 
dx,bad_create 
error exit 



; create file 
normal access 
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mov handle t ax 

lea si , init_aic_voice 
call init_aic 
call init_dma 

; dma is setup 

; enable DMA channel 2 RECV DMA 
call rx_dma_on 

mov rx_out f 0 

mov end_flag,0 
; set up the next address 
record_loop : 

mov dx , wr_clr_by te_p tr 

out dx.al 

jmp $+2 



tx 9600 rx 9600 



; init flag t low byte 
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; how many words are there.. in the receive buffer? 
mov dx,dma_6_address ; get RX in 
in al , dx 
mov cl,al 
jmp $+2 
in al.dx 
mov ch,al 
jmp $+2 

mov dx,wr_clrbyte_ptr ; init flag to low byte 

out dx,al 
jmp $+2 

; check to see if the low byte rolled over 

mov dx , dma_6_address 

in al,dx 

cmp cl , al 

j e read_ok 

mov cl , al 

in al.dx 

mov ch,al 
read_ok: 

mov ax , rx_out 

shr ax.l ; words 

add ax,rx_dma_alal6 

sub cx.ax 

jns pos_diff 

add cx,( rx_buf_len / 2 ) 
pos_diff : 

; shr ax , 1 ; word count 

cmp cx,800h ; 2k words 

jge save_it 

cmp end_flag,0 

jne record_loop 

mov ah, 1 

int 16h 

jnz end_record 

test main_flags,b3 ; ignore loop loss 

jnz record_loop 

test main_flags,b4 ; loop loss? 

j z record_loop 
end_record: 

mov end_f lag , Of fh 

jmp short rec rd_loop 



save it: 
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push ds 

m v cx,1000h ; 4k bytes 

mov bx, handle 

mov dx,rx_ ut 

mov ah,040h 

mov ds,rx_sample_segment 

int 21h 

pop ds 

mov ax , rx_out 

add ax,1000h 

cmp ax , rx_buf_len 

jne no_rollover 

xor ax , ax 
no_rollover: 

mov rx_out , ax 

cmp end_f lag , 0 

j ne end_record_dma 

jmp record_loop 

end_record_dma : 

; disable DMA channel 2 RECV DMA 

call rx_dma_off 

mov bx, handle ; close the file 

mov ah,03eh 

int 21h 



ret 



error_out: 
mov 
int 
ret 



ah,09h 
21h 



RECORD_MSG ENDP 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
PROC NEAR 



PLAYBACKJiSG 
. data 



.code 



out 


msg 


bad" 


open db 


mov 


ah,03dh 


xor 


al.al 


int 


21h 


jnc 


file_open 


lea 


dx.bad open 


mov 


ah,09h 


int 


21h 



db 'msgl.dat',0 
cr,lf,'Bad file open'^r.lf, 

; open file 
; read access 
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ret 

file_open: 

mov handle , ax 

1 a si,lnit_aic_voice ; tx 9600 rx 9600 

call initiate 

call inlt dma 



; dma is setup 


mov 


tx_in_ptr f 0 


playback_loop : 


mov 


ah,l 


int 


16h 


jz 


no_abort 


Imp 


abort Db 


no_abor t : 




mov 


dx,wr clr byte ptr 


out 


dx.al 


jmp 


$+2 


mov 


dx , dma_5_address 


in 


al,dx 


mov 


cl t al 


jmp 


$+2 


in 


al f dx 


mov 


ch,al 


jmp 


$+2 


mov 


dx , wr_clr_byte_ptr 


out 


dx, al 


jmp 


$+2 


; check for 


low byte rollover 


mov 


dx,dma 5 address 


in 


al,dx 


cmp 


al.cl 


je 


tx_address_ok 


mov 


cl,al 


jmp 


$+2 


in 


al,dx 


mov 


ch,al 


jmp 


$+2 



init flag to low byte 



init flag to low byte 



tx_addres s_ok : 

mov ax,tx_in_ptr ; calculate the tx buffer address 

shr ax,l ; word address 

add ax , tx_dma_alal6 

sub ax , cx 

jns p s_diff2 

add ax,( txj>uf_len / 2 ) 
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p s_diff2: 

; shr ax,l ; word count 

cmp ax f 800h ; less than 2K words in the buffer? 

jg playback_l op 



file the tx buffer with 2K words of samples 

mov ah,03fh ; file read 

mov bx, handle 

mov cx,1000h ; 4K bytes 

mov dx , tx_in_ptr 

push ds 

mov ds t tx_sample_segment 

int 21h 

pop ds 



push ax 
; enable DMA channel 1 TX DMA 

call tx_dma_on 

pop ax 

cmp ax,0 

je fi le_end 

add tx_in_ptr , lOOOh ; adjust input pointer 

cmp tx_in_ptr , tx_buf_len 

jne playback_loop 

mov tx_in_ptr,0 

jmp short playback_loop 



bx,tx_in_ptr ; calculate the tx buffer address 

bx,l ; word address 

bx, tx_dma_alal6 

wait_end_loop : 

; wait for tx_in_ptr and the DMA 5 address to be the same 

mov dx,vr_clr_bytejptr ; init flag to low byte 

out dx,al 

jmp $+2 

mov dx,dma_5_address 

in al , dx 

mov cl,al 

jmp $+2 

in al , dx 

mov ch f al 

jmp $+2 

mov dx,wr_clr_byte_ptr ; init flag to low byte 



fi legend: 
mov 
shr 
add 
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out dx,al 
jmp $+2 



check for low byte rollover 



mov 


dx,dma 5 address 


in 


al,dx 


cmp 


al,cl 




tx address ok2 


mov 


cl,al 


jmp 


$+2 


in 


al f dx 


mov 


ch,al 


jmp 


$+2 


tx_address_ 


_ok2: 


cmp 


bx,cx 


jne 


wait_end_loop 



abort_pb : 

; disable DMA channel 1 TX DMA 

call tx_dma_off 

; call speaker_off 

mov bx.handle ; close the file 

mov ah,03eh 

int 21h 

clc 
ret 



PLAYBACKMSG ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%% 

f 

C0MMJ10DE PROC NEAR 

comm_loop : 

IFE board 

; mov cx f 20000 
;here: 

; loop here 

call txl224 

call demod 
ENDIF 

m v ah f l ; any keys hit? 

int 16h 

j z check_rece ive 
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jmp got_key 



checker eceive: 

test main_flags,b3 ; ignore lo p current? 
5 jnz chk_dbox_mode 

test main_flags,b4 

j z chk_dbox_mode 

jmp dbox_check 

10 

chk_dbox_mode : 
IFE board 

test main_f lags , bO 

jnz data_ok 

15 cmp baud_count , 300 ; 1.5 seconds 

jle comm_loop ; blow off data for 1.5 seconds 

or main_flags,bO 

mov rx_char_in, offset rx_char_buf_start 

mov rx_char_out, offset rx_char_buf_start 
20 data_ok: 
END IF 

test recv_flags,b3 ; are we in display box mode? 

jz comm_loop 

25 mov si,rx_char_out ; check for receive chars 

cmp s i , rx_char_in 

j e comm_loop 

lodsb 

30 cmp si, off set rx_char_buf_end 

jne save_char_out 

mov si, off set rx_char_buf_start 
save_char_out : 

mov rx_char_out , s i 

35 

mov bx,5b20h ; ' ' 

; do parity checking 

test main_flags,bl0 

jz nonpar ity 

40 test main_flags,b9 

j z check_even_odd 

test main_flags,b8 

jnz checkjnark 

test al,80h 

45 jz good_receive 

mov bx, 3545b 

jmp short good_receive 
checkjnark: 

test al,80h 

50 jnz g od_receive 
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10 



15 



20 



25 



30 



35 



40 



45 



mov 


bx,3545n 


jmp 


short good_receive 


check_even_ 


da: 


; even or 


dd 


test 


main_flags,b8 




check_even 


cmp 


al,0 


jpo 


good receive 


mov 


bx,3545h 


jmp 


short good_receive 


check_even: 




cmp 


al,0 


jpe 


good receive 


mov 


bx,3545h 


good_receive: 


mov 


es, display segment 


mov 


di f 70 


mov 


[es:di] ,bx 


and 


al,7fh 


no_parity: 




call 


screen_out 


jmp 


comm_loop 


got_key: 




mov 


ah,0 


int 


16h 


cmp 


ax f Fl 


jne 


check_f2 


test 


recv_flags,b3 ; 


jnz 


comm loop^j mp 


or 


recv_f lags , 08h ; 


call 


dbox_address 


and 


recv_f lags , Of f f 7h 


jmp 


comm_loop 


check_f 2 : 




cmp 


ax,F2 


jne 


check_parity 


test 


recv_flags,b3 


jnz 


go_dbox 



; If parity is wrong turn., flash parity 



check if we are in display box mode 

turn off the dbox while changing vid modes 
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or 
m v 
mov 



recv_f lags , 08h 

al,vid_mode ; restore the initial vide m de 
ah,0 
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15 



int 


lOh 


call 


restore_screen 


comm_lo p_jmp: 


j m P 


comm_ioop 


go_dbox: 




cmp 


dbox_ok,0 


je 


comm loop 1 mp 


call 


save_screen 


call 


init_dbox 


and 


recv_f lags f Of f f 7h 


jmp 


comm_loop 


check_parity: 


cmp 


ax,ALT_P 


jne 


check_ascii 


call 


new_parity 


jmp 


comm_loop 



display does not support graphics 

call save_screen 

10 



20 

check_ascii: 

cmp al,0 ; ASCII ? 

je check_exit 

25 ; set up the correct parity 

test main_flags f bl0 

jz send_it 

test main_f lags , b9 

30 jnz force_it 

test main_f lags ,b8 

jnz odd_parity 

cmp al,0 ; set parity bits 

jpe send_it 

35 or al,80h 

jmp short send_it 
odd_parity: 

cmp al,0 ; set parity bits 

jpo send_it 

40 or al , 80h 

jmp short send_it 

force_it: ; mark or space parity 

and al,7fh 

45 test main_flags,b8 

jz send_it 

or al , 80h 

send_it : 

50 ; put th key into the transmit buffer 
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mov es , ds_segment 
cli 

mov di , tx_char_in 
stosb 

5 cmp di, off set tx_char_buf_end 

jne save_di 

lea di f tx_char_buf _s tart 
save_di : 

cmp di , tx_char_out ; is the buffer full? 

10 je loop_end ; yes so don't update the pointer 

mov tx_char in.di 
sti 

check_exit: 

15 cmp ax, F10 

je dbox_check ; F10 

loop_end: 

sti 

jmp comm_loop 
dbox_check: 

test recv_flags,b3 ; are we data mode ? 

jnz exit 

25 or recv_f lags , 08h 

mov al,vid_mode ; restore the initial video mode 

mov ah , 0 

int lOh 

30 exit : 

call tx_dma_off 

call rx_dma_off 
cli 

mov tx_vector, offset nul_routine 

35 mov recv_vec tor .offset nul_routine 
sti 
ret 



20 



40 



C0MM_M0DE ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

S ET_AI C_BANDS PROC NEAR 

45 ; set up the AIC 

lea si,init_aicj:x96_rx96 
test tx_f lags , bO 
jnz tx96 

lea si , init_aic_tx48_rx48 
50 test recv_flags,b0 
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j 2 init_interf ace . 

lea si , init_aic_tx48_rx96 

jmp sh rt init_interface 

tx96 : 

test recv_flags,bO 
jnz init_interface 
lea si,init_aic_tx96_rx48 
init_interf ace : 

call initiate 
ret 

SET_AIC_BANDS ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

TX_DMA_OFF PROC NEAR 

IF board 
; disable DMA channels 1 

mov dx,wr_single_mask 

mov al, 00000101b ; mask channel 1 

out dx , al 

and main_flags,NOT b2 
END IF 

ret 



TX_DMA_OFF ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%% 

RX_DMA_OFF PROC NEAR 

IF board 
; disable DMA channels 2 

mov dx , wr_s ingle_mask 

mov al, 00000110b ; mask channel 2 

out dx , al 
ENDIF 

ret 

RX_DMA_OFF ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%% 

TX_DMA_0N PROC NEAR 

IF b ard 

test main_flags,b2 
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jnz already_on 



; enable DMA channels 1 

mov dx,wr_s ingle mask 
m v al, 00000001b" 
out dx , al 
or main_f lags , b2 



; unmask channel 1 



already_on: 
END IF 
ret 

TX_DMA_0N ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

RX DMA ON PROC NEAR 



IF board 
; enable DMA channels 2 

mov dx,wr_single_mask 

mov al, 00000010b ; unmask channel 2 

out dx,al 
ENDIF 



ret 



RX_DMA_0N ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

ANSWERING_MACHINE PROC NEAR 
.data 

record_file db 'msgl.dat',0 
announce_flle db 'announce.dat ' ,0 

.code 

test main_flags,b5 
jz yes_answer 

call speaker_on 

lea dx , announce_f ile 
call playbackjnsg 

call speaker_off 
ret 



yes_answer: 

call off hook 
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call 


speaker_of f 


mov 


ax, 50 


call 


init_timer 


wait_f or_timer : 


test 


recv flags t b5 

— w * 


jz 


vait_for_timer 


lea 


si, outgoing msg 


call 


window_flip 


lea 


dx,out_msg 


call 


p 1 ayb ackjns g 


mov 


f req , tone_1500 


mov 


ax, 100 


call 


send_ tones 


lea 


si , outgoing_msg 


call 


wihdow_f lip 


call 


s e tup_l oop_cur r en t 


lea 


si , recording_msg 


call 


window_flip 


lea 


dx,record_file 


call 


record_msg 


lea 


si , recordingjnsg 


call 


vindow_flip 


call 


on_hook 


lea 


bx,record_file 


inc 


byte ptr [bx+3] 


ret 





ANSWERING_MACHINE ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%% 

0RIGINATE_M0DE_INIT PROC 
IF board 

and tx_f lags , Of f f eh 
r recv_f lags , lh 

ELSE 

I r tx_flags,l 



NEAR 



tx low 
recv_high 



tx high 



62 



; or recv_flags,l .. ; rx high 

and tx_f lags , Of f f eh 

and recv_f lags , Of f f eh 
ENDIF 

5 

call inlt connn screen 



and mai.njn.ags, NOT bO 

call init_tx 

10 call init_recv 

or recv_flags,08h ; data mode 

cmp dbox_ok , 0 

je no_dbox 

15 and recv_f lags , Of f f 7h 

call init_dbox 
no_dbox : 

IF board 

20 call off_hook 

call speaker_on * 



25 



call set_alc_bands 
call init_dma 

call setup_loop_current 



cli 

mov ax, 150 

30 call init_timer 

mov tx_vector, offset txl224 

mov recv_vector, offset demod 
; enable DMA channel 2 RECV DMA 

call rx_dma_on 
35 sti 



wait_timer: 

test recv_flags,b5 
jz walt_timer 
call speaker_off 

mov rx_char_in, offset rx_char_buf_start 
mov rx_char_out, offset rx_char_buf_start 
ENDIF 
ret 

0RIGINATE_M0DE_INIT ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
SETUP_L00P_CURRENT PROC NEAR 
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and 
mov 
in 
test 

or 

got_loop_current : 
ret 



main_flags,N0T(b3 OR b4 ) 
dx,modem_b ard 
al,dx 
al.bO 

got_loop_current 
main_flags ,b3 



set up loop 1 ss 



; ignore loop loss 



10 



15 



20 



25 



SETUP LOOP CURRENT 



ENDP 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
NEW PARITY PROC NEAR 



mov ax,main_flags 

and ax,0700h 

inc ah 

and ah,07h 

cmp ah,l 

jne update_parity 

mov ah ,4 ; make sure parity bit is set 

update_par ity : 

and main_f lags , Of 8f fh 

or main_f lags , ax 

call print_parity 
ret 



30 



35 



40 



45 



50 



NEW PARITY ENDP 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



MESSAGING_SYSTEM PROC NEAR 
.data 



done db 

phone_numberl 

phone_numberl 

file_l 

file_2 

end_file db 
file_3 

response_msg 

dw 



0 

db 9,8,2,5, 2,4,0, Offh 
db 9,2,9 t 9,8,4,4,0ffh 
db 'filel.dat' ,0 
db 'file2.dat' ,0 
'file3.dat\0 
db 'casey.dat' ,0 
db 'msgl.dat',0 
Offffh 



.code 

; first dial the number 

lea si , phone_numberl 



push 
call_loop: 
IF board 



si 



64 



call of f_hook 

call sp aker_on 

mov ax, 2 * 100 ; 2 sec. 

call init_tlmer 

5 

of f_hook_wait : 

test recv_f lags , b5 

jz off_hook_wait 

10 pop si 

dial_loop : 
lodsb 

cmp al,0ffh 

je dial_done 

xor ah , ah 

mov bx , ax 

mov ax, 7 

push si 

call dtmf 

pop si 

j c dial_done 



15 



20 



mov ax, 7 ; 70 ms 

25 call init_timer 

inter_digit_wait : 

test recv_flags,b5 

jz inter_digit_wait 

30 

jmp short dial_loop 

dial_done : 

comment ! 

35 call init_callp 

mov cx,28 
ge taring: 

mov ah,l 

int 16h 

40 jnz keyjiit 

push cx 

call get_callp 

test al,l 

jz waiter ing 

45 pop cx 

dec cx 

jcxz got_ring 

jmp sh rt get_ring 
wai taring: 

50 pop cx 
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mov cx,28 

jmp short ge taring 
g taring: 

; wait for 4 sec nds f silence 

5 mov cx f 112 
get_silence: 

mov ah,l 

int 16h 

jnz key_hit 

10 push cx 

call get_callp 

test al,l 

jnz no_silence 

pop cx 

15 dec cx 

jcxz got_silence 

jmp short get_silence 
no_silence: 

pop cx 

20 mov cx,112 

jmp short get_silence 

got_silence: 
i 

25 mov ah t 0 

int 16h 



lea 
call 

30 

call 

lea 
call 

35 

lea 
call 

lea 

40 call 

mov 
mov 
call 

call 

lea 
call 

50 



dx,file_l 
playbackjnsg 

ge t_touch_tone 

dx,file_2 
playback_msg 

dx,file_3 
playbackjnsg 

dx,end_file 
playback_msg 

freq, tone_1500 
ax ,100 
send_ tones 

setup_loop_current 

dx , response_msg 
rec rd_msg 



; 1/2 second 
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call 



on hook 



ELSE 
key_hit: 
ENDIF 



mov ah , 0 
int 16h 
ret 

MESSAGING_SYSTEM ENDP 

END 

.model small 
.286 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
; INTS is the interrupt routines 

; This routine contains the basic interrupt driver for the SOFTMODEM. 
; Tx_vector and rx_vector point to the routines to be performed durin 
; the interrupt. This module also contains the ring detect code. 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

include equates 

public sof tmodem , init_timer , timer_10ms 

public processed ,nul_routine 

public recv_vector , txjvector , int_f lags 

public wedge_int , disable_int , ring_de tect 

public ring_s tate , no_ring_s tate , timer_reload 

public timer_tic 

extrn tx_dma_off: near f rx_dma_off: near 
extrn recv_f lags rword, main_f lags : word 



.data 



int_f lags db ? 
int_flags.O - 1 ring detected 



ring_state dw 
state_count db 
cycle_count db 



? 
? 
? 



; ring detect state variable 



old_comint dd 
recv_vector dw 
tx vector dw 



? 
? 
? 



timer 10ms dw 



? 



ten MS timer 
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timer_tic db ? . 

timer_reload db 

processed db ? 

in int db 



; interrrupt counter 

? 

; data has been sent or received 



.code 



;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
SOFTMODEM PROC NEAR 

pusha ; save context 





push 


es 




push 


ds 


15 


sti 






mov 


al f 20h 




out 


20h,al 




mov 


dx , @data 


20 


mov 


ds ,dx 




cmp 


in_int,0 




jne 


exit_int 


25 


mov 


in_int,0ffh 




modem_loop : 






mov 


processed, 0 




mov 


ax , recv_vector 


30 


call 


ax 




mov 


ax, tx_vector 




call 


ax 




cmp 


processed, 0 




jne 


modem_loop 


35 








mov 


dx , modem_board 




in 


al,dx 




sal 


al,4 




and 


ax,b4 


40 


or 


main_f lags , ax 




; ten MS timer routine 




dec 


timer_tic 




jnz 


timer_done 


45 






mov 


al , timer_reload 




mov 


timer_tic,al 




dec 


timer_10ms 


50 


jnz 


time redone 



if one then will latch it 
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or 

timer_done : 
mov 

exit_int: 
pop 



recv_f lags , 20h . 



in_int t 0 



ds 



restore context 



pop es 
popa 

; interrupt exit 
iret 

SOFTMODEM ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%«%%%%%%%%%%%%%%%%%%%%%% 

INIT TIMER PROC NEAR 



cli 




mov 


timer_10ms , ax 


and 


recy flags, Of fdfh 


mov 


al,6 


test 


recv_flags,bO 


jnz 


high band 


shr 


al.l 


high_band : 




mov 


timer_tic,al 


mov 


timer_reload t al 


nul routine: 




sti 




ret 





INITJTIMER ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%% 

WEDGE_INT PROC NEAR 

IF board 
; wedge int Obh COM 2 INT 



in 



al,21h 

al ,00001000b 

21h,al 



set interrupt controller chip 
disable com 2 int 



or 



out 



mov 



mov 



mov 



mov 



int 



al,0bh 
ah,35h 
21h 

word ptr old_comint,bx 
w rd ptr old_comint[2] 



,es 



COM 2 interrrupt 
get current vector 



mov 



al.Obh 



mov ah,25h ; S et new vector 

lea dx, softmodem 

push ds 

push cs 

p p ds 

int 21h 

pop ds 



In al,21h ; set interrupt controller chip 

and al,lH10111B ; enable com 2 int 

out 21h f al 
ENDIF 
ret 



WEDGE_INT ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



; set interrupt controller chip 
; disable com 2 int 



mov tx_vector,offset nul_routine 

mov recv_vector, offset nul_routine 

mov dx.word ptr old_comint 

mov ax, word ptr old_comint[ 2] 

push ds 

mov ds , ax 

mov al , Obh 

mov ah,25h ;set new vector 

int 21h 

pop ds 

call rx_dma_off 

call tx_dma_off 
ENDIF 
ret 

DISABLE_INT ENDP 
> 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

RING^DETECT PROC NEAR 

mov dx , modem_board 

in al , dx 

mov bx , r ing_s tat e 

call bx 



DISABLE_INT PROC NEAR 
IF board 

in al,21h 

or al ,00001000b 

out 21h,al 
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ret 
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n _ring_state: 

mov cycle_count , 5 

test al y bl 

jnz no_ring 

mov ring_state,offset ringl 
no_ring: 
ret 



ringl : 

test al,bl 

jnz abort_ring ; got a spike 

mov state_count,21 ; 35 ms 

15 mov ring_state, offset wait_low ; low long enough 

; 1.667ms to 3.3ms 

ret 
abort_ring: 

mov ring_state f offset no_ring_state 
20 ret 

wait_lov: 

; no manual ring check so can be low for 35ms without a problem 
; if it stays low for that long then abort the ring and start over 

25 test al,bl 

jnz wentjiigh 

dec state_count 

jz abort_ring ; low for greater than expected 
ret 

30 went_high: 

mov ring_state, offset waitjiigh 

mov state_count,20 ; can't be high more than 33.3ms 
ret 

35 waitjiigh: 

test al,bl 

jz count_cycle 

dec state_count ; went high before 5 cycles 

j z abort_ring 
40 ret 

count_cycle : 

dec cycle_count 

jz got_ring 
45 mov ring_state f offset ringl 

ret 
got_ring : 

m v state_c unt t 105 ; 175ms of no activity f r ring t be 

; complete 

50 mov ring_state f offset wait_end 
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ret 



10 



15 



wait_end: 




test 


al,bl 


jnz 


count_it 


mov 


s tate_count , 105 


ret 




nmint" 4 f • 




dec 


state_count 


jz 


ring_done 


ret 




ring_done : 




or 


int_f lags , 1 


mov 


ring_state , offset 


ret 




RING_DETECT 


ENDP 


END 





set got ring flag 



20 



25 



30 



35 



model small 
286 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
Receive filter 

This module uses a special filter algorithm for 
band and phase splitting of the receive samples. 

Receive samples are accumulated at a rate of 9600 per second 
for high band and 4800 per second for the low band. 

The receive buffer is 8192 words long as is the transmit buffer. 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

include equates 



40 



public f ilter_pq , rx_out , delay_ptr 

public rx_in,baudlp_vector , save_sl 

public r_a2_delay , i_a2_delay 

public buf f er_in,buf f er_out , interp_a0 , interp_al p quad_count 

public real_buffer,imag_buffer 



45 



50 



extrn agc_average:word 

extrn eqr_delay:word 

extrn eqi_delay :word 

extrn rx_sample_segment 

extrn recv_f lags : word, baud_x: word 

extrn agc_speed:word 

extrn agc_mant : word 

extrn temp_x : word , temp_y : word 



72 



extrn agc_xsube:byte 





delay_length 


equ 


256 


5 


.data 








rx_out 


dw 


? 




rx_in dw 


? 




10 


; the following are the 


i baud loop interpolator variables 


baudlp_vector 


dw 


7 ; jump for baud loop interpolator 




quad_count dw 


? 


; update coeff count 




buffer_in dw 


? 




15 


buffer_out dw 


? 






Y*Afl1 llll "f f A y Hu 
ICttl UUJ.1CI UW 


4 dup(?) ; real equalizer input buffer 




imag_buffer dw 


4 dup(?) ; imaginary buffer 


20 


real_sl 


dw 


? ; interpolator delay lines 


images 1 


dw 


? 




interp_a0 dw 


? 


; interpolator coefficients 




intern al dw 


? 


25 


O 1U_X UW f 








; EVENDATA 








; rx_samples_start 


label 


word 


30 


; rx_sample_ buf 


dw 


8192 dup(?) 


: rx samples end 




label word 




; REAL DELAY LINES 








delay_ptr dw 


? 




35 










r_bl_zl 


dw 


? 




r_bl_z2 


dw 


? 


40 


r_a2_delay_zl 


dw 


? 


r a2 delay dw 


delay_length-l dup(?) 




r_a2_de lay_end0 


dw 


? 




r_a2_delay_endl 


dw 


? 


45 


r_b2_delay_zl 


dw 


? 


r_b2_delay dw 


delay_length-l dup(?) 




r_b 2_de 1 ay_end0 


dw 


? 




r_b2_delay_endl 


dw 


? 


50 


r_a3_delay_zl 


dw 


? 


r_a3_delay dw 


delay_length-l dup(?) 
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r_a3_de lay_endO 
r_a3_delay_endl 

IMAGINARY DELAY LINES 
i_al zl 
ijfzl 
i_bl_z2 

i_a2_delay_zl 
i_a2_delay dw 
i_a2_delay_end0 
i_a2_de lay_endl 

i_b2_delay_zl 
i_b2_delay dw 
i_b2_delay_endO 
i_b2_delay_endl 

i_a3_de lay_z 1 
i_a3_delay dw 
i_a3_de 1 ay_endO 
i_a3_delay_endl 



dw . ? 
dw ? 



dw ? 
dw ? 
dw ? 

dw ? 

delay_length-l dup(?) 
dw ? 
dw ? 

dw ? 

delay_length-l dup(?) 
dw ? 
dw ? 

dw ? 

delay_length-l dup(?) 
dw ? 
dw ? 



.code 

FILTER_PQ PROC NEAR 

; filter and phase split 8 or 16 samples 

mov ch,4 ; four times through the loop 

mov es , rx_sample_segment 
mov si,rx_out ; filter sample pointer 
; mov di, equal izer_in ; equalizer delay line pointer 

; filter 4 or 2 samples until we have a sample ready for the second 
; stage. Execute the second stage and then do the same for the 
; imaginary 

filter_loop: 



THE FIRST STAGE OF THE RECV FILTER IS: 
IN 



COS or 
-SIN 



OUT 
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-1/4 



; COS - 


• 1/4,0,-1/4,0, 
************** 


• • • 


-SIN - 0,-1/4,0,1/4,... 


; ********** 






************************* 


mov 


ax,es: [si] 






add 


si, 4 ; 


skip the next sample because cos - 0 


sar 


ax, 2 






test 


recv_flags,bO 






jnz 


hi_stagel 






low_stagel: 








test 


ch,l 






J* 


no_neg 






neg 


ax 




• - 


no_neg : 








mov 


dx,r_bl_zl 


* 


outl - 1/4X0 + Zl - 1/4*Z2 


add 


dx,ax 




sar 


r bl z2,2 






sub 


dx,r_bl z2 




outl 


mov 


r_bl_z2,dx 






add 


ax, dx 


• 


out2 - 1/4X0 + outl - 1/4*Z1 


sar 


r_bl_zl,2 




sub 


ax,r_bl_zl 






mov 


r_bl_zl,ax 


i 


first stage pass two done 


jmp 


short stage2 






hi_stagel: 








mov 


bx,ax 


t 


1/4 X0 --> BX 


add 


ax,r bl zl 




1/4 X0 + zl 


sar 


r_bl_z2,2 






sub 


ax,r_bl_z2 


• 


outl - 1/4X0 + Zl + (-1/4*Z2) 


mov 


dx, ax 


i 


dx - outl 


add 


ax,bx 


t 


+ 1/4 X0 


sar 


r_bl_zl,2 






sub 


ax,r_bl_zl 




out2 - 1/4X0 + outl + (-1/4*Z1) 


mov 


bx,ax 


» 


bx - out2 


mov 


ax,es: [si] 


9 


get X2 * -1/4 


add 


si, 4 






sar 


ax, 2 






neg 


ax 






sar 


dx,2 


f 


-1/4 * outl 


neg 


dx 






xchg 


ax,dx 


1 


dx - -1/4 * X2 
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add 


ax , bx ; 




add 


ax,dx ; 




mov 


r_bl_z2 , ax ; 




add 


ax,dx ; 


5 


mov 


dx,bx 




sar 


dx,2 




sub 


ax,dx 




mov 


r_bl_zl , ax 




add 


ax,bx ; 


1 f\ 

10 


sar 


4 

ax f l ; 




stage2 : 






sar 


ax, 3 ; 


15 


mov 


bx, delay_ptr 




mov 


r_a2_delay [bx+2 ] , ax 




mov 


dx,r a2 delay [bx] ; 




sal 


dx,l 




add 


ax,dx 




add 


ax , r_a2_de lay [ bx - 2 ] 




; calculate 0UT1 


25 


add 


ax , r_b2_delay [bx ] ; 


mov 


dx,r_b2_delay[bx-2] 




sar 


dx,l ; 




sub 


ax, dx 




mov 


r_b2_delay [bx+2 ] , ax 


30 


sar 


ax, 2 ; 




mov 


dx,r b2 delay[bx] ; 




sar 


dx,l 




add 


ax,dx 




mov 


dx,r b2 delay [bx- 2] 




sar 


dx,2 




add 


ax,dx 




sar 


ax, 1 




mov 


r_a3_de lay [bx+2 ] , ax 


add 


ax , r_a3_de 1 ay [ bx - 2 ] 




mov 


temp_x , ax 




real_done : 






; AX holds 


the filter and phase 




push 


ax 




test 


agc_speed , b4 




j* 


not_narrow 




sar 


ax, 3 ; 




not_narrow: 




50 


sar 


ax, 4 ; 



-1/4 X2 + B2/2 - B3 
out3 

save in Z2 

out4 - -1/4X2 + ut3 - 1/4 ut2 

input to second stage - out4 + out 2 
1/2 

second stage scalar 1/8 

; store input into the delay line 
scalar * OUT + ( 2 * r_a2_zl) 

; + r_-a2_z2 

add Zl 

+ ( -.5 * B2 ) 

; store result into the delay line 

1/4 

+ ( 1/2 * Zl ) 
; + Z2/4 

; + Z3 

split real output 

/128 total 
/16 



76 



; get the absolute value 
jns r_positive 
neg ax 
r_positive: 
5 add agc_average , ax 

pop ax 

; AGC AX here 

imul agc_mant 
10 mov cl,agc_xsube 

sal dx,cl 

comment ! 
test ch,b0 
15 jnz no_save 

mov eqr_delay[di] , dx 
jmp short do_imaginary 

no_save : 

20 ; do baud loop integrator calculations 



25 



30 



40 



45 



50 



or 


dx.dx 


; set the sign bit 


jns 


pos real 


neg 


dx 




real : 






sar 


dx,5 


; /32 


test 


ch.bl 


; are we at RX1 or 


jz 


add It 




neg 


dx ~ 


; -RX1 


it: 






add 


baud_sum , dx 





! 

mov di,dx save in DI 



35 do_imaginary: 

; have completed 4 ( or 2 ) input samples for the real delay line. 
; Now do the same for the imaginary. 



mov 


si,rx_out 


add 


si, 2 


mov 


ax t es: [si] 


add 


si, 2 


sar 


ax, 2 


test 


recv_flags,b0 


jnz 


hi_stagel_i 


test 


ch,b0 



filter sample pointer 

skip the fist sample because sin - 0 
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jnz 


no_neg2 








neg 


ax 








no_neg2 : 










mov 


dx,i_al_zl 




Al 


5 


mov 


i al zl,ax 


» 


save for the next loop 




add 


dx,i bl zl 






sar 


i_bl_z272 








sub 


dx i bl z2 








mov 


i_bl_z2,dx 


i 


outl 


10 


add 


ax , dx 




+ X0 * 1/4 - OUT 




sar 


i_bl_zl,2 








sub 


ax,i bl zl 








mov 


i_bl_zl,ax 






15 


; first stage pass two done 










short stage2_i 








hi_stagel_ 










neg 


ax 




the first sample is a 0 


20 


mov 


dx,ax 


i 


save for the next loop 




mov 


ax,i_al_zl * 






add 


ax,i bl zl 


i 


outl - in_zl + out_zl + (-l/4*out_z 




sar 


i_bl_z2,2 








sub 


ax,i_bl_z2 






25 


mov 


DX | OA 


; 


outl 




add 


ax, dx 


; 


out2 - in + outl + (-l/4*out_zl) 




sar 


ijbl_zl,2 








sub 


ax,i bl z2 


; 


out2 




add 


dx.ax 


; 


out 3 - in + out 2 + (-l/4*outl) 


30 


sar 


bx,2 






sub 


dx.bx 


; 


out3 




mov 


i_bl_z2,dx 


; 


save out3 in out_z2 




mov 


dx,ax 


; 


dx - out2 




mov 


bx,ax 






35 


add 


si, 2 


; 


skip sample 2 




mov 


ax,es : [si] 


; 


get sample 3 




add 


si,2 








sar 


ax, 2 


; 


in3 




mov 


i al zl,ax 


j 


save for next loop 


40 


add 


ax f i bl z2 




UulJ 




sar 


bx,2 








sub 


ax,bx 


: 


out4 




mov 


i_bl_zl,ax 








add 


ax,dx 


; 


input to second stage - out4 + out 2 


sar 


ax t l 








stage2_i: 










sar 


ax f 3 


i 


scaler f r second stage 


50 


mov 


bx,delay_ptr 
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mov i_a2_delay [bx+2] , ax 





mov 


dx,i a2 delay [bx] ; 




sal 


dx,l~ 


5 


add 


ax v dx 




add 


ax , i_a2_delay [bx- 2 ] 




; calculate OUT1 




add 


ax,i_b2 delay [bx] ; 


10 


mov 


dx,i b2 delay [bx-2] 




sar 


dx,l ; 




sub 


ax,dx 




ul\j V 


4 K9 Hal av fkvXO 1 «v 

i_o^oeiay [ ux~rz j , ax 


15 


sar 


ax, 2 ; 




mov 


dx,i b2 delay [bx] ; 




sar 


dx,l 




add 


ax f dx 




mov 


dx,i b2 delay [bx-2] 


20 


sar 


dx,2 




add 


ax, dx 




sar 


ax, 1 




mov 


i_a3_delay[bx+2] , ax 


25 


add 


ax , i_a3_de lay [ bx - 2 ] 




mov 


temp_y , ax 




imag_done : 






; AX holds 


the filter and phase 


30 


push 


ax 




test 


agc_speed,b4 






wideband_agc 




sar 


ax, 3 • 




wideband_agc : 


35 


sar 


ax, 4 ; 




; get the absolute value 




jns 


i_positive 




neg 


ax 




i_positive : 




40 


add 


agc_average , ax 




pop 


ax 



; AGC AX here 

imul agc_mant 
45 mov c 1 , agc_xsube 

sal dx,cl 



comment ! 
test ch,b0 
50 jnz no_save_i 



; store input into the delay line 
scalar * OUT + ( 2 * i_a2_zl) 

; + i_a2_z2 
add Zl 

+ ( -.5 * B2 ) 

; store result into the delay line 

1/4 

+ < 1/2 * Zl ) 
; + Z2 

; + Z3 

split imaginary output 

/128 total 
/16 
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mov eq i_de lay [ di ] , dx 
add di,2 

jmp short update_ptr 
no_save_i : 

; do the baud loop integrator calculations 

or dx,dx 

jns pos_imaginary 

neg dx 
pos_imaginary : 

sar dx,5 ; /32 

test ch t bl 

jz add_imaginary ; RXO or RX1? 
neg dx ; RX1 

add_imaginary : 

add baud_sum , dx 

! 



mov 


ax,baudlp_vector 


call 


ax 


update_ptr : 




add 


delay_ptr,2 


mov 


rx out, si 


dec 


ch 


jz 


baud_t ime_done 


jmp 


filter_loop 


baud_time done: 


; add 


equalizer_in,4 ; set 


cmp 


si , rx_samples_length 


jne 


chk_end_de lay 


mov 


rx out,0 


chk_end_delay : 


cmp 


delay _ptr, (delay_length * 2 ) 


jne 


no_de 1 ay_sh i f t 



set for the next baud time 



mov delay_p tr , 0 
; shift the delay lines from the end to the beginning 
mov ax , r_a2_delay_end0 
mov r_a2_de lay_z 1 f ax 
mov ax , r_a2_delay_endl 
mov r_a2_de lay , ax 



mov ax , r_b2_delay_end0 

mov r_b2_de lay_z 1 , ax 

mov ax t r_b2_de lay_endl 

m v r_b2_delay ,ax 
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mov ax , r_a3_delay_end0 

mov r_a3_de lay_zl , ax 

mov ax , r_a3_delay_endl 

mov r_a3_de lay , ax 

; IMAGINARY DELAY LINES 



mov 


ax, i_a2_delay_end0 


mov 


i_a2_delay_zl , ax 


mov 


ax , i_a2_delay_endl 


mov 


i_a2_delay,ax 


mov 


ax, i_b2_delay_end0 


mov 


i_b2_delay_zl , ax 


mov 


ax , i_b2_delay_endl 


mov 


i_b2_delay,ax 


mov 


ax, i_a3_delay_end0 


mov 


i_a3_delay_zl , ax 


mov 


ax, i_a3_delay_endl 


mov 


i_a3_delay,ax 


no_delay_shift: 


ret 




FILTER_PQ 


ENDP 



;%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%% 

INTERPOIATOR_ROUTINES PROC NEAR 

save_sl: 

mov images l,dx 

mov real_sl , di 

mov baudlp_vector, offset save_sO 
ret 

save_sO : 

; imaginary sample is in DX 
; real sample is in DI 

mov baudlp_vector , offset save_sl 

dec quad_count 

jz new_coeff 
compute_equalizer : 

mov bx,buffer_in 
; compute imaginary first 

push cx 

mov ax , dx 

imul interp_aO ; AO * SO 

mov cx , dx 

mov ax,imag_sl 
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10 



15 



20 



25 



imul 


interp_al ; 


Al * SI 


add 


cx,dx 




sal 


cx,l 




mov 


imag_buf f er [bx ] , cx 




; compute 


the real 




mov 


ax.di 




imul 


interp_aO ; 


AO * SO 


mov 


cx 9 dx 




mov 


ax, realms 1 ; 


Al * SI 


Imul 


interp_al 




add 


cx , dx 




sal 


cx , 1 




mov 


real_buffer[bx] ,cx 


; store In the real 


add 


buffer_in,2 


and 


buffer_in,07h 




pop 


cx 




ret 






new_coef f : 






mov 


quad_count,32 




mov 


ax t old_x 




xor 


ax , baud_x 




jns 


same_sign ; 


if old and new have the 




• 


sign then no rollover 



30 



; could have rolled over 
mov ax,baud_x 
ax,0 
pos_int 
ax 

pos_int 
ax 



35 



cmp 

neg 
jns 
dec 
pos_int: 
cmp 
jl 



or passed through fcero so find out 
; if baud_x < .7 then no rollover 



; special case when baud x - 8000h 



ax,5998h 
same_sign 



; .7 



40 



45 



50 



cmp baud_x 9 0 

jge zero_to_one 

compute an extra P 

mov bx , buf f er_in 

compute imaginary first 

push cx 

push dx 

mov ax, dx 

imul interp_a0 

mov cx , dx 

mov ax f images 1 

imul interp_al 

add cx , dx 



; AO * SO 
; Al * SI 
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sal cx,l 

mov imag_buf f er [ bx ] , cx 
; compute the real 

mov ax , di 

5 imul interp_aO ; AO * SO 

mov cx 9 dx 

mov ax,real_sl ; Al * SI 

imul interp_al 

add cx , dx 

10 sal cx,l 

mov real_buffer[bx] ,cx ; store in the real buffer 

add buffer_in,2 

and buffer_in,07h 

pop dx 

15 pop cx 

zero_to_one: 

mov imag_sl,dx 

mov real_sl,di 

20 mov baudlp_vector, offset save_s0 

; compute AO and Al 





mov 


ax,baud_x 




mov 


old_x f ax 




sar 


ax, 1 


25 


add 


ax,4000h 




mov 


interp_al ,ax 




neg 


ax 




add 


ax,7fffh 




mov 


interp_aO,ax 


30 


ret 





same_sign: 




; compute 


AO and Al 


mov 


ax,baud_x 


mov 


old_x f ax 


sar 


ax,l 


add 


ax 9 4000h 


mov 


interp_al t ax 


neg 


ax 


add 


ax,7fffh 


mov 


interp_a0 , ax 


jmp 


compute_equalizer 



45 INTERPOLATOR_ROUTINES ENDP 
END 
.model small 
.286 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
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Main demodulat r 



This program is the main dem dulat r algorithm for 1200 
and 2400 baud operation. 

The receive samples are stored in RX_SAMPLE_BUF and are filtered, 
AGCed, and split into equalizer samples by the file RECVFIL.asm 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



bleed_tap 


macro 




lodsv 




; 5 


cwd 




; 2 


and 


dl,bl 


; 2 


or 


dl,bh 


; 2 


sub 


ax, dx 


; 2 


stosv 




3 


endm 






absolute 


macro 




cwd 






xor 


ax, dx 




sub 


ax,dx 




sar 


ax, 5 





endm 



include equates 



public equal izer_in, recv_f lags , demod 

public agc_average , agc_speed , recv_sample_count 

public eqr_delay , eqi_delay 

public ini t_recv , rx_char_out , rx_char_in 

public rx_charjnif_start,rx_charj)uf_end 

public dboxaddress , baud_count 

public agc_xsube , agc_mant 

public temp_x , temp_y , loop2_int , baud_x 



extrn filter_pq : near ,save_sl: near 

extrn init_dbox : near , plo t_point : near , get_tx_data : near 

extrn buf f er_in : word , buf f er_out : word 

extrn delay_ptr : word, baudlp_vec tor 

extrn cosine_table :word,sine_table : word 

extrn rx_out: word, rx_in: word 

extrn i_a2_delay : word , r_a2_delay : word 

extrn ds_segment : word, rx_dma_alal6 : word 

extrn tx_flags:w rd 

extrn buf f er_in : word , buf f er_out : word 

extrn interp_a0 : word , interp_al : w rd , quad_count : word 
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extrn real_buf f er : word , imag_buf f er : word 



10 



15 



20 



25 



extrn vid_mode:byte,x:byte,y:byte 
extrn reverse_table:byt 
extrn processedrbyte 



rx_buf_len equ 

equalizer_length equ 

Cbetal 

Cbeta2 

Calpha 

receive_low_thresh 
r e c e ive_h 1 gh_ thr e sh 



.data 



tap_of f set dw ? 
temp_x dw 
temp_y dw 

recv_sample_count dw 
processed_cnt dw 



8192 

2048 

equ 

equ 

equ 

equ 

equ 



? 
? 



-3072 

1096 

-3072 

0000b 

0000b 



number. of samples per baud time 



eqr_delay dw equal izer_length dup(?) ; real equalizer delay 

eqr_end label word 

eqi_delay dw equal izer_length dup(?) ; imaginary equalizer 

eqi_end label word 



30 



35 



40 



45 



50 



real_taps 


dw 


14 dup(?) 


imag inary_t ap s 


dw 


14 dup(?) 


equal izer_in 


dw 


? 


; equalizer delay line input 


baud_count 


dw 


? 


t 


increment every baud time 


rzn 


dw 


? 




equalizer real output 


izn 


dw 


? 


i 


eqiulizer imaginary output 


rym 


dw 


? 




rotated equalizer output 


iym 


dw 


? 






r_error 




dw 


? 


; real error vector 


i_error 




dw 


? 


; imaginary error vector 


dec r 


dw 


? 


» 


closest V22 point - real 


dec_i 


dw 


? 


• 


V22 point - imaginary 


alpha 


dw 


? 


* 


tap update speed 


aren 


dw 


? 


» 


alpha * ren 


aien 


dw 


? 




alpha * ien 
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ierr 



dw ? .. ; counter rotated err r vector imag 





recv_flags 


dv 


? 






; bit 0 


I " 


recv 


high band 


5 


; bit 1 




recv 


2400 baud 




; bit 2 


i - 


got 1200 recv data 




; bit 3 


[ z 


receive data on 




bit A 




detected 1100 ( SI ) 




bit 5 


i - 


lOMs 


timer expired 


10 ; 


bit 6 




got energy 




bit 7 




call 


progress timed out 




bit 8 


1 - 


looking for the end of the answer tone 


15 


phi 


dw 


7 


; carrier loop angle 


phase_corr 


dw 


7 


; phase corrector integrator 




cosine 




dw 


? ; cosine (phi) 




sine 


dw 


7 


; sine (phi) 


20 


recv_data 


db 


o 

I 


; demodulated data 




dbox_routine 


dw 


f 




sl_counter 


db 


? 




25 












decision table 


db 


Obh 






db 


Oah 








db 


Odh 








db 


Ofh 




30 




db 


09h 








db 


08h 








db 


Och 








db 


Oeh 








db 


06h 




35 




db 


04h 








db 


OOh 








db 


Olh 








db 


07h 








db 


05h 




40 




db 


02h 








db 


03h 





45 



prev_y3y2 db ? 

descram_0 db ? 

descram 1_17 dw 

data 1200 db ? 



50 



eye_menu db '1. equalizer output' ,cr, If 
db '2. qualiz r 0 input', cr, If 
db '3. equalizer 1 input ',cr, If 
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db 
db 
db 
db 
db 
db 



»4.. tap 5',cr,lf 

'5. SI detector' ,cr, If 

' 6 . Interpolator Al ' , cr , If 

'7. PHI'.cr.lf 

'8. 1st order baud loop integrator' ,cr, If 
'9. 2nd order baud loop integrator' ,cr,lf, '$' 



tap_question db cr, If, 'Enter tap number ( 0 - 9, A - D ):','$' 



1 A 

10 


rx_char_in dw 


? 




rx_char_out dw 


? 




rx_char_buf_start label byte 




rx_char_buf db 


2000 dup(?) 


15 


rx_char_buf_end 


label byte 




r_parse_jmp dw 


? 




r_parse_data 


dw ? 


20 


agc_coeff0 dw 


1460h 




agc_coeffl dw 


50b7h 




agc_coeff2 dw 


4f50h 




agc_coeff3 dw 


27elh 




agc_coeff4 dw 


887h 


25 








energy_threshold dw ? 




agc_average dw 


? ; age 




old_agc 


dw ? 




agc_speed dw 


? ; age 


agc_mant dw 


? 




agc_xsube db 


? 




baud_sum dw 


? 




loop2_int dw 


? 


jj 


loop2_cnt db 


? 




baud_x 


dw ? 




baud loop2 table 


db 60 




db 


60 


40 


db 


30 




db 


20 




db 


15 




db 


12 




db 


10 


45 


db 


9 




db 


8 




db 


7 




db 


6 




db 


5 


50 


db 


4 
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db 3 
db 2 



.code 

DEMOD PROC NEAR 



10 



IF board 

mov dx,wr_clr_byte_ptr ; init flag to low byte 

out dx,al 
jmp $+2 



; how many words are there in the receive buffer? 

mov dx,dma_6_address ; get RX in 

in al.dx 

mov cl,al 

15 jmp $+2 

in al , dx 

mov ch , al 

jmp $+2 

20 mov dx,wr_clr_byte_ptr ; init flag to low byte 

out dx,al 

jmp $+2 

mov dx , dma_6_addr es s 

25 in al,dx 

cmp cl,al 

je read_ok 

mov cl,al 

in al , dx 

30 mov ch,al 

read_ok: 

mov ax , rx_out 

shr ax,l 

add ax , rx_dma_alal6 

35 sub cx,ax 

jns pos_diff 

add cx , rx_buf_len 
pos_diff: 

; shr ax,l ; word count 

40 cmp cx,recv_sample_count 

jge demodulate_it 
ret 
ELSE 

call get_tx_data 

45 jnc demodulate_it ; data available 

ret 
END IF 

; A'A' A ** * ** * HnHnHn fc A A A A 1 A A A A A A A i r t r f rk^Ht irk *************** ** ******* ** ** * *** A A M A M A " A'A " A' A 1 A* 
* 

50 ; 
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; DEMODULATION CODE. 



dem dulate_it: 

cmp cx,processed_cnt 
j le not_enough_samples 





or 


processed, Olh 




not_enough_samples : 


10 


Inc 


baud_count 




call 


filter_pq 




equal izer_buf_check : 


15 


mov 


ax,buffer_in 




sub 


ax,buffer_out 




jns 


no_adj 




add 


ax,08h 




no_adj : 




20 


cmp 


ax, 4 




jge 


get_equ 




ret 






get_equ: 




25 


mov 


di , equalizer_in 




mov 


bx ( buffer_out 




mov 


ax , real_buf f er [bx ] 




mov 


eqr_delay(di] ,ax 


30 


absolute 




sub 


baud_sum , ax 




mov 


ax , imag_buf f er [bx ] 




mov 


eqi_delay[di] , ax 


35 


absolute 




sub 


baud_sum , ax 




add 


bx,2 




and 


bx f 07h 


40 


mov 


ax , real_buf f er [bx ] 




mov 


eqr_delay [ di+2 ] , ax 




absolute 




add 


baud_sum, ax 


45 


mov 


ax , imag_buf f er [ bx ] 




mov 


eqi_delay [ di+2 ] , ax 




absolute 




add 


baud_sum, ax 



more than 1 1/2 baud times samples? 

; this will prevent further calls to 
; demod by the interrrupt 

filter the next baud times samples 
insert into the equalizer delay lines 

; are there two samples in the 
; equilizer buffer ? 



; RX1 

take care of the baud loop integrator 
: 1X1 



RXO 



1X0 



50 



add qualizer_in,4 
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add 


bx,2 


and 


bx,07h 


mov 


buffer_ ut t bx 


test 


recv_flags,b6 


jnz 


got_energy 


mov 


ax , baud_count 


and 


ax , agc_speed 


jz 


energy_check 


no_energy : 






equal izer_full check 


energy_check: 


mov 


ax , agc_average 


sub 


ax , energy_threshold 


js 


no_energy 


or 


recv_flags,b6 


mov 


baud_count , 1 


jmp 


short new_level 


got_energy: 




mov 


ax,baud_count 


and 


ax,agc_speed 


jz 


check_alpha 



every 4 or 32 baud times 



jmp display_box 



; ********k***irk*1rk*ir*1rk*ic1rk**^ AAA AAA* A AAA****** 

* 

; AGC code 



check_alpha : 





cmp 


baud_count , lOOh 




jne 


agc_tests 




mov 


alpha ,800h 


agc_tests: 






test 


agc_speed,b4 




jz 


wideband_agc 


; AGC 


test 


1 




mov 


ax,old_agc 




sar 


ax,l 




sub 


ax , agc_aver age 




jns 


new_level 


; AGC 


test 


2 




mov 


ax,old_agc 




sar 


ax,l 




add 


ax,old_agc 



slow down to 1/16 after 2 sec 



new < .5 old then compute all new AGC 



; 1.5 Id 
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sub 
jns 



ax , agc_average 
videband_agc 



; if new > 1/5 old then compute new AGC 



ax , agc_average 
old_agc , ax 
short compute_agc 

wideband_agc : 

; get ( ALPHA * NEW ) + (( 1 - ALPHA ) * OLD ) 
; ALPHA - 1/8 

mov ax , old_agc 

mov bx,ax 

sar bx,3 ; 1/8 

sub ax,bx ; 7/8 old 

mov bx , agc_average 

sar bx f 3 ; + 1/8 new 

add ax , bx 

mov old_agc , ax 

compute_agc : 

mov agc_average , 0 

mov cl,l 
; AX is > 0 

; subtract one from cl because the reference is /4 but during the actual 

; AGCing of the sample we need a * 2 

normalize: 

inc cl 

test ax,bl4 

jnz normal ize_done 

sal ax,l 

jmp short normalize 
normalize_done : 

mov agc_xsube t cl 
push ax ; M 

mov bx,ax 
imul bx 
sal dx,l 

push dx ; M A 2 

mov ax,bx 
imul dx 
sal dx,l 

push dx ; M A 3 

mov ax f bx 
imul dx 

sal dx.l ; M A 4 

mov bx , agc_coef f 0 

mov ax , agc_coef f 4 

imul dx ; A(4) * M A 4 

add bx,dx 



n w_level: 
mov 
mov 
jmp 
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pop ax 






imul agc_c eff3 ; 


A(3) * M A 3 




sub bx.dx 






pop ax 




5 


imul agc_coeff2 ; 


A(2) * M A 2 




add bx v dx 






dod ax 






imul agc_coef f 1 ; 


A(l) * M 




sub bx,dx 




10 


sal bx f 3 ; 


* 8 because of equation plus a * 2 because 




S 


f\ f ^V\0 mill { AC nw/I a /O f . 

ui. uiie multiplies ana a /z tor reference 




mov agc_mant , bx 


• 




cmp baud_count , 3 2 


; slow the AGC down after 32 baud times 


15 


Tip H "f onl a\7 Vjav 
jug uiapi ay uua 






mov agc_speed , lfh 






display_box: 






test recv_flags,b3 




20 


jnz baud_loop 






mov ax,dbox routine 




call ax 






mov x f ah 




25 


mov y.bh 






call plot_point 






; ************************* 




30 


* 

; ******* ****** He-kit * * * ****** 


'**************»»^^^^^^^^^^^^^^^. A ,. A ,, A A A A A ******* 

•**********************^^r A ****** A A A A A A AAA A A A *** »^*** 



35 



45 



; equation is | RXO | + | 1X0 | - | RX1 | - | 1X1 | + | RX2 | + 
; over eight baud times 



baud_loop : 

; do first order baud loop every 8 baud times 

mov ax , baud_count 

and ax f 7h 

40 jnz baud_loop2 

cmp baud_sum , 0 

mov ax, 160 

jns shorten 

neg ax 
shorten : 

add baud_x , ax 



mov ax,baud_sum 
50 mov baud_sum , 0 
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sar ax, 7 ; /128 

add loop2_int f ax 

jns check_upper 

cmp Ioop2_int,0f200h 

5 jge baud__loop2 

mov loop2_int , Of 200h 

jmp short baud_loop2 
checkjipper : 

cmp loop2_lnt , Of OOh 

10 j 1 baud_loop2 

mov loop2_int , Oef fh 

baud_loop2 : 

dec loop2_cnt 

15 jnz equal izer_output 

mov ax , loop2_int 

or ax, ax ; set sign bit 

js add_time 

20 cmp ax.Offh 

jle get_new_count 

add baud_x,160 

jmp short get_new_count 

25 add_time: 

sub baud_x,160 

neg ax 

get_new_count : 

30 xor bh,bh 

mov bl , ah 

mov al,baud_loop2_table[bx] 

mov loop2_cnt,al 

35 equal izer_output: 

; A - A "* A A A A A A A A ic ****** ******** ** ** * * ****** 



40 



* 

* equalizer update ( calculate rzn + j izn ) 
★ 

* rzn - ( rx * rw ) - ( ix * iw ) summed over all taps 

* izn - ( rx * iw ) + ( ix * rw ) 
* 

********************** A AAA A A A A A * ** * ** *************** 



mov bx,equalizer_in 
45 lea si , real_taps 

; CALCULATE ( REAL EQUALIZER DELAY 0 - 13 ) * ( REAL TAP 0 • 13 ) 
lodsw ; rtapO 

imul word ptr eqr_delay[bx-2] 
50 m v cx 9 dx 
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10 



15 



20 



25 



30 



35 



1 *sA rtr 

lO CSV 




; rtapl 


imul 


wuiu put 


eqr_ueiay [ DX-*f j 


aUU 


Ca v Ua 




lodsw 




; rtap2 


1EQU1 


wora per 


eqr_ae lay l bx - o J 


aaa 


cx, dx 




lodsw 




; rtap3 


lmul 


word ptr 


eqr_delay [bx-8] 


_ j j 
aaa 


cx, dx 




lodsw 




; rtap4 


imul 


word ptr 


eqr_delay[bx-10] 


rt j j 
aaa 


cx, dx 




lodsw 




; rtapS 


lmul 


word ptr 


eqr_de lay [ bx - 12 ] 


aaa 


cx, dx 




lodsw 




; rtap6 


imul 


word ptr 


eqr_ae lay [ bx - 14 J 


aaa 


cx, dx 




lodsw 




; rtap7 


4 Mill 

imul 


word ptr 


eqr^de lay [ bx - 16 J 


_ j j 
aaa 


cx, dx 




lodsw 




; rtap8 


lmul 


word ptr 


eqr_delay[bx-18] 


aaa 


cx, dx 




lodsw 




; rtap9 


•J MMl 1 

lmul 


word ptr 


eqr_delay [bx-20] 


aaa 


cx, dx 




lodsw 




; rtaplO 


4 mill 

imul 


word ptr 


eqr_delay [bx-22 ] 


aaa 


cx , dx 




lodsw 




; rtapll 


4 mill 

imul 


wora ptr 


e< l r _de lay [ bx - 24 J 


aAA 

aaa 


cx, dx 




lodsw 




; rtapl2 


imul 


word ptr 


eqr_delay[bx-26] 


add 


cx,dx 




lodsw 




; rtapl3 


lmul 


word ptr 


eqr_delay[bx-28] 


add 


cx,dx 





40 

; CALCULATE ( IMAGINARY EQUALIZER DELAY 0 - 13 ) * ( IMAGINARY TAP 0 - 13 ) 
; si already pointing to the imaginary taps 

lodsw ; itapO 

45 imul word ptr eqi_delay[bx-2] 

sub cx,dx 

lodsw ; itapl 

imul word ptr eqi_delay[bx-4] 
sub cx,dx 
50 1 dsw ; itap2 
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imul word ptr eqi_delay[bx-6] 
sub cx,dx 

1 dsw ; itap3 

imul word ptr eqi_delay [bx-8] 
sub cx,dx 

lodsw ; itap4 

imul word ptr eqi_delay[bx-10] 
sub cx,dx 

lodsw ; itapS 

imul word ptr eqi_delay [bx-12] 
sub cx.dx 

lodsw ; itap6 

imul word ptr eqi_delay[bx-14] 
sub cx v dx 

lodsw ; itap7 

imul word ptr eqi_delay[bx-16] 
sub cx , dx 

lodsw ; itap8 

imul word ptr eqi_delay [bx-18] 
sub cx f dx 

lodsw ; itap9 

imul word ptr eqi_delay [bx-20] 
sub cx , dx 

lodsw ; itaplO 

imul word ptr eqi_delay[bx-22] 
sub cx , dx 

lodsw ; itapll 

imul word ptr eqi_delay [bx-24] 
sub cx , dx 

lodsw ; itapl2 

imul word ptr eqi_delay [bx-26] 
sub cx.dx 

lodsw ; itapl3 

imul word ptr eqi_delay[bx-28] 
sub cx,dx 

S& 1 cx »2 ; adjust for the multiply plus 1/2 

mov rzn f cx 

lea si,real_taps 

CALCULATE ( IMAGINARY equallZER DELAY 0 - 13 ) * ( REAL TAP 0 - 
lodsw ; rtapO 

imul word ptr eqi_delay[bx-2] 
mov cx , dx 

lodsw ; rtapl 

imul word ptr eqi_delay [bx-4] 
add cx , dx 

1 dsw ; rtap2 

imul word ptr eqi_delay[bx-6] 
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add cx v dx 

lodsw ; rtap3 

imul word ptr eqi_delay[bx-8] 
add cx , dx 
5 1 dsw ; rtap4 

imul word ptr eqi_delay [bx-10] 
add cx,dx 

lodsw ; rtapS 

imul word ptr eqi_delay[bx-12] 
10 add cx,dx 

lodsw ; rtap6 

imul word ptr eqi_delay [bx-14] 
add cx,dx 

lodsw ; rtap7 

15 imul word ptr eqi_delay[bx-16] 

add cx , dx 

lodsw ; rtap8 

imul word ptr eqi_delay[bx-18] 
add cx , dx 
20 lodsw ; rtap9 

imul word ptr eqi_delay [bx-20] 
add cx , dx 

lodsw ; rtaplO 

imul word ptr eqi_delay [bx-22] 
25 add cx.dx 

lodsw ; rtapll 

imul word ptr eqi_delay [bx-24] 
add cx,dx 

lodsw ; rtapl2 

30 imul word ptr eqi_delay[bx-26] 

add cx,dx 

lodsw ; rtapl3 

imul word ptr eqi_delay[bx-28] 
add cx , dx 

35 

; CALCULATE ( REAL EQUALIZER DELAY 0 - 13 ) * ( IMAGINARY TAP 0 - 13 ) 
; si already pointing to the imaginary taps 
lodsw ; itapO 

40 imul word ptr eqr_delay [bx-2] 

add cx , dx 

lodsw ; itapl 

imul word ptr eqr_delay [bx-4] 
add cx , dx 
45 lodsw ; itap2 

imul word ptr eqr_delay [bx-6] 
add cx , dx 

lodsw ; itap3 

imul w rd ptr eqr_delay [bx-8] 
50 add cx 9 dx 
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lodsv 




; itap4 


Imul 


vord ptr 


eqr_delay[bx-10] 


add 


cx.dx 




lodsv 




; itapS 


imul 


vord ptr 


eqr_delay [bx- 12 ] 


add 


cx v dx 




lodsv 




; itap6 


imul 


vord ptr 


eqr_delay[bx-14] 


add 


cx,dx 




lodsv 




; itap7 


imul 


vord ptr 


eqr_delay[bx-16] 


add 


cx,dx 




lodsv 




; itap8 


imul 


vord ptr 


eqr_delay[bx-18] 


add 


cx,dx 




lodsv 




; itap9 


imul 


vord ptr 


eqr_delay[bx-20] 


add 


cx p dx 




lodsv 




; itaplO 


imul 


vord ptr 


eqr_delay[bx-22] 


add 


cx.dx 


* 


lodsv 




; itapll 


imul 


vord ptr 


eqr_delay [bx- 24 ] 


add 


cx,dx 




lodsv 




; itapl2 


imul 


vord ptr 


eqr_delay[bx-26] 


add 


cx,dx 




lodsv 




; itapl3 


imul 


vord ptr 


eqr_delay[bx-28] 


add 


cx.dx 




sal 


cx,2 


; adjust 


mov 


izn,cx 



phase_rotation: 

At 'XX A A A A A A A A A A AAA A" A A A it A' A? A" AvA Ait A A" A"A A'T^nAr A~~A~ A r A A* 'A 1 A? Af^f^rArTfrTt'sfc'AfiAnfc' 
* 

* phase rotation 
* 

* rym - ( rzn * cosphi ) - ( izn * sinphi ) 

* iym - ( rzn * sinphi ) + ( izn * cosphi ) 
* 



mov ax , rzn 

imul cosine 

mov bx , dx 

mov ax 9 izn 

imul sine 

sub bx , dx 

sal bx,2 ; sine and cosine are 1/2 scale 
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mov rym.bx 





mov 


ax,rzn 




imul 


sine 


5 


mov 


bx v dx 




mov 


ax, izn 




imul 


cosine 




add 


bx,dx 




sal 


bx,2 


10 


mov 


iym,bx 



sine and cosine are 1/2 scale 



; ************ * A A A A A * A A A A A A A A A A A A A A * A A A A A * * A A A A A A A A AA A 

;* 

;* derive the error vector and the v22 point 
15 ;* 

;* error vector — r_error + j i_error 

;* v22 point — dec_r + j dec_i 

;* 

; ********************^ 
20 xor bx,bx 

mov ax, rym 
test recv_flags,bl 
jnz decision_2400 
jmp decision_1200 

25 

decision_2400: 

or ax , ax 
j s r_negative_24 

30 mov bl,2 

cmp ax, ( 44 * 256 ) 
jge big_positive_24 

; real is less than 44 
35 sub ax,( 22 * 256 ) 

mov r_error,ax 



40 



mov dec_r, ( 22 * 256 ) 
jmp short indecision 

big_positive_24 : 
; real is above 44 

sub ax,( 66 * 256 ) 

mov r_error , ax 

mov dec_r,( 66 * 256 ) 
inc bx 

jmp short indecision 



50 r_negative_24 : 



45 
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xor bl,bl 

cmp ax, ( -44 * 256 ) 

jle big_negative_24 

add ax t ( 22 * 256 ) 

mov r_error,ax 

mov dec_r,( -22 * 256 ) 

inc bx 

jmp short indecision 

big_negative_24 : 

add ax,( 66 * 256 ) 

mov r_error,ax 

mov dec_r,( -66 * 256 ) 

i_decision: 

mov ax,iym 

or ax, ax 

js i_negative_24 

cmp ax, ( 44 * 256 ) 

jge imag_big 

; imaginary is less than 44 

sub ax,( 22 * 256 ) 

mov i_error , ax 

mov dec_i,( 22 * 256 ) 

or bl,8 

jmp short read_decision 
imag_big: 

; real is above 44 

sub ax,( 66 * 256 ) 

mov i_error,ax 

mov dec_i,( 66 * 256 ) 

or bl,0ch 

jmp short read_decision 

i_negative_24: 

cmp ax,( -44 * 256 ) 

jle imag_lil 

add ax,( 22 * 256 ) 

m v i_error,ax 



mov dec_i,( -22 * 256 ) 

or bl,4 

jmp short read_decisi n 

5 imag_lil: 

add ax,( 66 * 256 ) 

mov i_error,ax 

mov dec_i,( -66 * 256 ) 

10 jmp short read_decision 

decision_1200: 

or ax, ax 

js r_neg_1200 



15 



45 



sub ax,( 49 * 256 ) 
mov r error, ax 



mov dec_r,( 49 * 256 ) 

20 mov bl,3 

jmp short i_1200 

r_neg_1200: 

add ax, ( 49 * 256 ) 

25 mov r_error,ax 

mov dec_r,( -49 * 256 ) 

xor bl,bl 

30 ij.200: 

mov ax, iym 

or ax, ax 

js i_neg_1200 

35 sub ax,( 49 * 256 ) 

mov i_error , ax 

mov dec_i , ( 49 * 256 ) 

or bl,0ch 

40 jmp short read_decision 

i_neg_1200 : 

add ax, ( 49 * 256 ) 

mov i_error , ax 



mov dec_i,( -49 * 256 ) 



r ead_dec is ion : 

mov al,d cisi n_tabl [bx] 
50 mov recv data,al 



100 



10 



15 



20 



25 



30 



35 



; * ** * ** ***** ****************** ******* A * * * ************ 

;* 

;* 
•* 

i 

•* 



counter rotate th err r vector and multiply 
by alpha 



;* 

:* 



equation - alpha * (( r_error + j i_error ) * ( cosphi - j sinphi)) 

aren - alpha * (( r_error * cosphi ) + ( i_error * sinphi )) 
aien - alpha * (( ierror * cosphi ) - ( r_error * sinphi )) 



; ******** A'A' ^ 

; CX - alpha 



mov 


cx , alpha 


mov 


ax,r_error 


imul 


cosine 


mov 


bx, dx 


mov 


ax, i_error 


imul 


sine 


add 


bx,dx 


sal 


bx,l 


mov 


ax, bx 


imul 


cx 


sal 


dx,l 


mov 


aren, dx 


mov 


ax,i_error 


imul 


cosine 


mov 


bx,dx 


mov 


ax,r_error 


imul 


sine 


sub 


bx,dx 


sal 


bx,l 


mov 


ax,bx 


imul 


cx 


sal 


dx,l 


mov 


aien,dx 



40 



45 



*************************ir******* 



* 

* tap update loop 
* 

* equation - rw - (( rx * aren ) + ( ix * aien )) 

( ix * aren )) 



iw • (( rx * aien ) 
********************************^^ 



50 



SI - Real delay line 
DI - Imaginary delay line 
BX - aren 
CX - aien 
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mov 


ax , baud_count 








and 


ax , uxn 








• _ 


bleed 








jmp 


d _tap_update 






5 












bleed: 










push 


ds 








pop 


es 








lea 


si, real taps 






10 


mov 


di.si 








mov 


bl,0f8h 








mov 


bh,04h 








REPT 28 








15 


bleed_tap 








ENDM 










jmp 


rotate 








do_tap_update : 






20 


mov 


cx,aien 








mov 


bx,aren 








mov 


si t equalizer_in 








mov 


di,si 








add 


si 9 offset eqr_delay 






25 


add 


di, off set eqi_delay 








; real tap 


0 








mov 


ax.ds: [si-2] 




; eqr 




imul 


bx ; 


* 


aren 


30 


mov 


bp.dx 








mov 


ax,ds:[di-2] 




; eqi 




imul 


cx ; 


* 


aien 




add 


dx,bp 








sal 


dx,l 








sub 


real_taps[0] ,dx 








; real tap 


1 








mov 


ax,ds : [si-4] 




; eqr 




imul 


bx ; 


* 


aren 


40 


mov 


bp.dx 








mov 


ax.ds: [di-4] 




; eqi 




imul 


CX ; 


*k 


aien 




add 


dx.bp 








sal 


dx.l 








sub 


real_taps[2] ,dx 








; real tap 


2 








m v 


ax.ds: [si-6] 




; eqr 




imul 


bx ; 


* 


aren 


50 


mov 


bp, dx 
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mov ax,ds: [di-6] 

imul cx 

add dx,bp 

sal dx,l 

sub real_taps [ 4 ] , dx 

real tap 3 

mov ax,ds:[si-8] 

imul bx 

mov bp , dx 

mov ax,ds:[di-8] 

imul cx 

add dx,bp 

sal dx,l 

sub real_taps [ 6 ] , dx 

real tap 4 

mov ax,ds: [si-10] 
imul bx 

bp,dx 

ax,ds:[di-10j 



mov 
mov 

imul cx 

add dx,bp 

sal dx,l 

sub real_taps [ 8 ] , dx 



; eqi 
; * aien 



; eqr 

* aren 

; eqi 

* aien 



; eqr 

* aren 

; eqi 

* aien 



real tap 5 

mov ax,ds : [si-12] 

imul bx 

mov bp , dx 

mov ax,ds: [di-12] 

imul cx 

add dx f bp 

sal dx,l 

sub real_taps [ 10 ] , dx 

real tap 6 

mov ax,ds: [si -14] 

imul bx 

mov bp f dx 

mov ax,ds: [di-14] 

imul cx 

add dx 9 bp 



sal 
sub 



dx,l 

real_taps [ 12 ] , dx 



real tap 7 

mov ax.ds: [si-16] 
imul bx 
m v bp 9 dx 



J eqr 

* aren 

; eqi 

* aien 



; eqr 

* aren 

; eqi 

* aien 



eqr 



* aren 
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mov 


ax,ds:[di-16] .. 




; eqi 




imul 


cx 


-i r 


aien 




aaa 


dx,bp 








sal 


ox, 1 






c 


SUD 


real_taps [ 14 J , dx 








; real tap 


o 
o 








mov 


ax,ds : [si -18] 




; eqr 




imul 


bx 


* 4r 
i 


aren 


10 


mov 


bp,dx 








mov 


ax,ds:[di-18] 




; eqi 




imul 


cx 


; * 


aien 




aaa 


ax, bp 








sal 


dx,l 






i q 

1j 


sub 


real_taps [ 16 ] , dx 








; real tap 


9 








mov 


ax, ds : [si-20] 




; eqr 




imul 


bx 


; * 


aren 


20 


mov 


bp f dx 








mov 


ax,ds:[di-20] 




; eqi 




imul 


cx 


; * 


aien 




aAA 

aaa 


dx,bp 








sal 


ax, 1 






Z3 


sub 


real_taps [ 18 ] , dx 








; real tap 


10 








mov 


ax,ds: [si -22] 




; eqr 




imul 


bx 


; * 


aren 


30 


mov 


bp,dx 








mov 


ax,ds:[di-22] 




; eqi 




imul 


cx 


v * 


aien 




add 


dx f bp 








sal 


dx,l 






jj 


sub 


real_taps[20] ,dx 








comment ! 








; real tap 


11 








mov 


ax,ds: [si-24] 




; eqr 


AH 


imul 


bx 


; * 


aren 




mov 


bp,dx 








mov 


ax,ds: [di-24] 




; eqi 




imul 


cx 


; * 


aien 




add 


dx,bp 






45 


sal 


dx,l 








sub 


real_taps[22] ,dx 








; real tap 


12 






50 


mov 


ax,ds: [si-26] 




; eqr 


imul 


bx 


; * 


aren 
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mov bp,dx 

mov ax,ds: [di-26] ; eqi 

imul cx ; * aien 

add dx,bp 

5 sal dx,l 

sub real_taps [ 24 ] , dx 

; real tap 13 

mov ax,ds: [si-28] ; eqr 

10 imul bx ; * aren 

mov bp , dx 

mov ax, ds: [di-28] ; eqi 

imul cx ; * aien 

add dx,bp 

15 sal dx.l 

sub real_taps [ 26 ] t dx 
! 

; Process the imaginary taps 
20 ; iw - (( rx * aien ) - ( ix * aren )) 

; imaginary tap 0 

mov ax,ds:[di-2] ; eqi 

imul bx ; * aren 

25 mov bp , dx 

mov ax f ds: [si-2] ; eqr 

imul cx ; * aien 

sub dx,bp 

sal dx,l 

sub imaginary_taps [ 0 ] , dx 



30 



; imaginary tap 1 

mov ax,ds:[di-4] ; e qi 

imul bx ; * aren 

35 mov bp,dx 

mov ax,ds:[si-4] ; e qr 

imul cx ; * a i e n 

sub dx f bp 

sal dx,l 

sub imaginary_taps [ 2 ] , dx 
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; imaginary tap 2 

mov ax 9 ds: [di-6] ; eqi 

imul bx ; * aren 

45 mov bp , dx 

mov ax,ds:[si-6J ; eqr 

imul cx ; * aien 

sub dx.bp 

sal dx.l 

sub imaginary_taps [ 4 ] , dx 



50 



105 



imaginary tap 3 

m v ax, ds: [di-8] ; e qi 

imul bx ; * aren 

mov bp , dx 

m v ax,ds: [si-8] ; eqr 

imul cx ; * aien 

sub dx,bp 

sal dx f l 

sub imaginary_taps [ 6 ] , dx 

imaginary tap 4 

mov ax,ds: [di-10] ; eqi 

imul bx ; * aren 

mov bp , dx 

mov ax,ds: [si-10] ; eqr 

imul cx ; * aien 

sub dx,bp 

sal dx,l 

sub imaginary_taps [ 8 ] , dx 

imaginary tap 5 

mov ax,ds: [di-12] ; eqi 

imul bx ; * aren 

mov bp , dx 

mov ax.ds: [si-12] ; eqr 

imul cx ; * aien 

sub dx,bp 

sal dx,l 

sub imaginary_taps [ 10 ] , dx 

imaginary tap 6 

mov ax,ds: [di-14] ; eqi 

imul bx ; ★ aren 

mov bp , dx 

mov ax.ds: [si-14] ; e qr 

imul cx ; * aien 

sub dx.bp 

sal dx f l 

sub imaginary_taps [ 12 ] , dx 

imaginary tap 7 

mov ax.ds: [di-16] ; eqi 

imul bx ; * aren 

mov bp.dx 

mov ax,ds: [si-16] ; eqr 

imul cx ; * aien 

sub dx,bp 

sal dx,l 

sub imaginary_taps [ 14 ] , dx 
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imaginary tap 8 

mov ax,ds: [di-18] ; eqi 

imul bx ; * aren 

m v bp,dx 

mov ax,ds: [si-18] ; eqr 

imul cx ; * aien 

sub dx,bp 

sal dx,l 

sub imaginary_taps [ 16 ] , dx 

imaginary tap 9 

mov ax,ds: [di-20] ; eqi 

imul bx ; * aren 

mov bp , dx 

mov ax,ds: [si-20] ; eqr 

imul cx ; * aien 

sub dx,bp 

sal dx,l 

sub imaginary_taps [ 18 ] , dx 

imaginary tap 10 

mov ax,ds: [di-22] ; eqi 

imul bx ; * aren 

mov bp , dx 

mov ax,ds: [si- 22] ; eqr 

imul cx ; * aien 

sub dx,bp 

sal dx,l 

sub imaginary_taps [ 20 ] , dx 

comment ! 

imaginary tap 11 

mov ax,ds: [di-24] ; eqi 

imul bx ; * aren 

mov bp , dx 

mov ax, ds: [si-24] ; eqr 

imul cx ; * aien 

sub dx,bp 

sal dx,l 

sub imaginary_taps [ 22 ] , dx 

imaginary tap 12 

mov ax,ds: [di-26] ; eqi 

imul bx ; * aren 

mov bp f dx 

mov ax,ds: [si-26] ; eqr 

imul cx ; * aien 

sub dx,bp 

sal dx,l 

sub imaginary_taps [ 24 ] , dx 
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; imaginary tap 13 

mov ax,ds: [di-28] ; eqi 

imul bx ; * aren 

mov bp f dx 

mov ax,ds: [si-28] ; eqr 

imul cx ; * aien 

sub dx,bp 
sal dx,l 

sub imaginary_taps [ 26 ] , dx 
! 

* * 

;* rotate the imaginary eye to the real plane 

;* 

;* equation - ( rym + j iym ) * ( dec_r - j dec_i ) 
;* ierr - j (( iym * dec_r ) - ( rym * dec i )) * 2 

;* 

;******************** 

rotate; . 

; IERR is used in the phase corrector 

mov ax , iym 

imul dec_r 

mov bx , dx 

mov ax , rym 

imul dec_i 

sub bx , dx 

sal bx,2 ; adjust for the multiply and add a gain of 2 

mov ierr.bx 

; *******************^ 

★ 

* 

* new phase corrector (carrier pll update) aln 9/23/88 

* equations : 

* phcor - phcor + (ierr * Cbetal) 

* phi - phi + (phcor*Cbeta2 + ierr*Calpha) 

* Cbetal- input coefficient to loop's 2nd order integrator 

* Cbeta2- output coefficient of 2nd int for frequency lock limit 

* Calpha- 1st order loop coefficent. 2nd order term is not nested 

* inside 1st order term in this configuration. 

* NOTE: Cbetal and Calpha must be negative values for stable loop 
**********************^ 



phase_update: 

;* for V.22bis mode only, lo p parameters can be determined with PLL2.BAS 
;* current choices f r variables are: 
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mov ax,Cbetal 

imul bx ; ierr * Cbetal 

sal dx,l 

add phase_corr,dx ; phase_corr + ( ierr * Cbetal ) 

5 mov ax,Calpha 

imul bx ; ierr * Calpha 

mov bx,dx 

mov ax,Cbeta2 

imul phase_corr ; phase_corr * Cbeta2 

10 add bx,dx 

sal bx,l 

add bx,phi 

mov phi f bx 

15 ; sine and cosine routine 

mov bl,bh 

xor bh,bh 

sal bx,l 

mov ax,cosine_table[bx] 

20 mov cx,sine_table[bx] 

sar ax,l 

mov cosine, ax 

sar cx,l 

mov sine,cx 



25 



k 



30 



35 



40 



45 



sl_detect: 




mov 


bx, equal izer_i: 


mov 


ax,eqr_delay[b: 


sub 


ax,eqr_delay[b: 


jns 


b and_p a s s_j? o s 


neg 


ax 


band_pass _pos : 


sub 


ax, (20 * 256) 


js 


add_one 


sub 


sl_counter,4 


jns 


data_decode 


mov 


sl_counter,0 


add_one : 




inc 


sl_counter 


cmp 


sl_counter,20 


ji 


data__decode 


mov 


sl_counter,20 


or 


recv_flags,b4 



z0 
z4 
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10 



15 



20 



25 



; * A A"A " A " A " A "A i rkirk k A A kkrkirkirk i rk^rkirkirki i AAAAAA AAAAAAAAAAAAAAAA A ArAr A A A A A A A A^HHUHHfr * A AAA* 
* 

; * A A 1 A' A' 'A j rjrkjrkjr i rklrk A 1 ' A A A A A A A A A A A A A A AA A A A A A A A A A A A A A A A A A A A A A A A * ★ A A- A A A AAAAAAAAA A AA AA 
* 

data_decode : 

; do differential decode 



xor 


ax 9 ax 


mov 


al t recv_data 


ror 


ax, 2 


mov 


bl,al ; save t 


sub 


al,prev_y3y2 


mov 


prev_y3y2,bl 


gray decode 


test 


al.bl 


jnz 


no gray 


xor 


al.l 


>_gray : 




and 


al,3 


test 


recv_flags,b2 


jnz 


combine_1200_data ; 


rol 


ax, 2 ; 


test 


recv_flags,bl 


jnz 


descrainble_4 


and 


al,0ch 


mov 


data_1200 , al 


or 


recv_f lags , 4 


jmp 


equal izer_full_check 



; is thfere 1200 baud data from 
the prev.baud time 

restore bl,b0 

; are we at 2400 baud? 
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combine_1200_data : 

35 and recv_f lags , Of f fbh 

or al , data_1200 

xor ah , ah 
descramble_4: 

mov bx , ax 

40 xor dx,dx 

mov al,reverse_table[bx] ; put oldest bit in ax.O 

mov dh,al ; save for delay line 

mov bx , descram_l_17 

xor ax,bx 

45 shr bx,3 

xor ax,bx 

shr bx,l 

r bh,descram_0 

and ax,0fh ; descrambled data 

50 rol dx,5 ; dx.O is th last bit 
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and bx,lfffh 

or bh,dh 

mov descram_l_17 , bx 

mov descram_0,0 

test dx,bO 

jz no_bit_0 

mov descram_0 , 10b 
no_bit_0: 

comment ! 

cmp al , 09h 

j g hex_nums 

or al f 30h 

jmp short pr intuit 
hex_nums : 

sub al,Oah 

add al,'A' 
print_it: 

mov dl , al 

mov ah t 02h 

int 21h 

! . 

receive_parser : 

cmp r_p ar s e_j mp , 0 

je check_for_start 

mov bx f r_par s e_j mp 

jmp bx 

check_f or_start : 

cmp ax , Ofh 

jne got_start_bit 

jmp equalizer_full_check 

got_start_bit: 

mov r_parse_data,ax 

mov r_parse_jmp, offset parse_8 

jmp equalizer_full_check 

parse_8 : 

shl ax, 4 

or r_parse_data , ax 

mov r_parse Jmp, offset parse_12 

jmp equalizer_full_check 

parse_12 : 

mov r_parse_jmp,0 ; default 

shl ax, 8 

or ax,r_parse_data ; last three baud times of data 

mov cx,3 ; number of bits left in the high nybble 
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shr 


ax, 1 


jnc 


got_start 


dec 


cx 


shr 


ax, 1 


jnc 


got_start 


dec 


cx 


shr 


ax,l 


jnc 


got start 


shr 


ax,l 


dec 


cx 


got_start: 


f 


mov 


di , rx_char_in 


mov 


es,ds_segment 


stosb 





10 

the parsed character is in al 



15 cmp di, offset rx_char_buf_end 

jne no_rollover 

mov di, offset rx_char_buf_start 
no_rollover: 

cmp di,rx_char_out ; is the buffer full 

20 j e no_update 

mov rx_char_in,di 
no_update : 

jcxz equal izer_full_check 

dec cx 

25 j cxz t e s t_one_b i t 

dec cx 

jcxz test_two_bits 
test_three_bits : 

test ah.lh 

30 jz insert_bit 

test ah,2h 

jz insert_bit ; AH - xxxxxdOl 

test ah,4h 

jnz equalizer_full_check 
35 insert_bit: 

shl ah,l ; AH - xxxxxddO 

or ah.lh 

mov al , ah 

xor ah, ah 

40 mov r_parse_data , ax 

mov r_parse_jmp,offset parse_8 

jmp equal izer_full_check 

test_one_bit: 

45 test ah,lh 

jnz equalizer_full_check 

mov r_parse_data,07h ; AH - xxxxxxxO 

mov r_parse_jmp,offset parse_8 

jmp short equalizer_full check 

50 
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test_tw _bits: 

test ah,lh 
J* 

test 
jnz 



insert_tw _bits 
ah f 2h 

equalizer_full_check 



AH - xxxxxxdO 



insert two bits: 



AH - xxxxxxOl 



10 



shl 

or 

mov 

xor 

mov 

mov 



ah, 2 
ax,3h 
al,ah 
ah, ah 

r_parse_data , ax 

r_parse Jmp, offset parse_8 



15 



equal iz e r_f ul l_check : 

cmp equal izer_in, ( equal izer_length * 2 ) 
jne not_full 



20 


; shift the 


last eight samples in 


the equalizer 


; and reset 


the input pointer. 








mov 


es ,ds_segment 








mov 


di, off set eqr_delay 








; mov 


si, off set ( eqr_end - 


16 


) 


25 


mov 


si, off set ( eqr end - 


24 


) 




mov 


cx,12 








rep 


movsv 






30 


mov 


di, off set eqi_delay 






; mov 


si, offset ( eqi_end - 


16 


) 




mov 


si, offset ( eqi end - 


24 


) 




mov 


cx,12 








rep 


movsv 






35 


mov 


equalizer_in,24 








notJFull: 










jmp 


equalizer_buf_check 







40 



DEMOD ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%% 

INIT RECV PROC NEAR 



45 



50 



mov agc_average , 0 

mov agc_speed , 3h 

mov equal izer_in , 24 

mov rx_ ut,0 

m v rx_in , 0 



4 baud times 

12 int the delay line at start 
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10 



15 



20 



mov delay_ptr,0 

mov alpha, lOOOh 

mov recv_sample_count , 16 

mov processed_cnt,24 

mov energy_threshold , receive_high_thresh 

test recv_flags,bO 

jnz clr_taps 

mov recv_sample_count , 8 

mov processed_cnt, 12 

mov energy_threshold , receive_low_thresh 
clr_taps : 
; clear the taps 

push ds 

pop es 

lea di , real_taps 

mov cx,28 

xor ax, ax 

rep stosv 

mov baiid_count , dx 



25 



30 



35 



40 



45 



; zero the baud loop out 


mov 


baud_sum , ax 


mov 


loop2_int,ax 


mov 


loop2_cnt , 10 


mov 


buffer_i.il, ax 


mov 


buffer_out,ax 


mov 


interp_al , ax 


mov 


interp_a0,7fffh 


mov 


quad_count f 32 


mov 


baudlp_vector, offset save_sl 


mov 


dbox_routine , offset send_eye 


mov 


tap_offset,10 


; mov 


dbox_routine , offset tap_routine 


mov 


real_taps+12 , 0100000000000000b 


mov 


rx_char_i.il, offset rx_char_buf 


mov 


rx_char_out , offset rx_char_buf 


mov 


r_parse_jmp,0 


ret 




INIT RECV 


ENDP 



center tap to 1/2 



;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



50 



DBOX ROUTINES 



PROC NEAR 
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send_ey : 

mov ax , rym 
m v bx,iym 
ret 

5 

equ_inO : 

mov bx, equal izer_in 
mov ax , e q r_de 1 ay [ bx - 2 ] 
mov bx , e q l_de lay [ bx - 2 j 
10 ret 

equ_inl : 

mov bx,equalizer_in 
mov ax , e qr_de lay [ bx - 4 ] 
15 mov bx,eqi_delay[bx-4] 

ret 

tap_routine : 

mov bx , t ap_o f f se t 
20 mov ax,real_taps[bx] 

mov bx ', imaginary_taps [bx ] 
ret 

sl_routine: 

25 mov bx,aien 

sal bx,6 

mov ax f aren 

sal ax ,6 

; mov ah, al 
30 ret 

p_routine : 

mov bx , interp_al 

mov ax , baud_count 

35 mov ah,al 

ret 

phi_routine : 

mov bx,sine 

40 mov ax, cosine 

ret 

baud_loopl_routine : 

mov bx t baud_sum 

45 sal bx,3 

mov ax , baud_count 

mov ah.al 

ret 

50 baud_l op2_routine: 
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mov bx,l op2_int 

sal bx ( 2 

mov ax,baud_count 

mov ah ( al 

ret 

send_temp : 

mov ax,temp_x 
mov bx,temp_y 
ret 

baud_loop_routine: 

mov bx, equal izer_in 
mov bx , eqr_de lay [ bx - 2 ] 
mov ax f baud_count 
mov ah.al 
ret 

DBOX_ROUTINES ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%%%%%% 

DBOX_ADDRES S PROC NEAR 

mov al,vid_mode ; restore the initial video mode 

mov ah f 0 

int lOh 

mov dx, offset eye_menu 

mov ah,09h 

int 21h 

get_key_in: 

mov ah,0 ; get a key 

int 16h 

cmp al,31h 
jne chk_2 



mov dbox_routine , offset send_eye 
jmp address done 



chk 2: 



cmp al,32h 

jne chk_3 

mov dbox_routine , of f set equ_inO 

jmp short address done 



chk 3: 
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cnp al,33h 

jne chk_4 

m v dbox_routine,offset equ_inl 

5 jmp short address_done 

chk4: 

cmp al , 34h 

jne chk_5 

10 

get_again: 

mov ah, 09 

mov dx, offset tap_question 

int 21h 



15 



mov ah , 0 
int 16h 



mov ah, '0' 
20 cmp al,'0' 



jl get_again 

cmp al, '9'+l 

jb got_num 

and al,0dfh ; convert to upper case 

25 cmp al,'A' 

jb get_again 

cmp al , 9 D ' 

ja get_again 

mov ah, 'A' -10 

30 

got_num: 

sub al , ah 

sal al,l 

xor ah, ah 

35 mov tap_offset,ax 

mov dbox_routine , offset tap_routine 

jmp short address_done 

40 chk_5: 

cmp al,35h 

jne chk_6 

mov dbox_routine,offset sl_routine 

jmp short address done 

45 

chk_6: 

cmp al , 36h 

jne chk_7 

mov dbox_routin , offset p_routine 

50 jmp short address done 
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chk_7 : 

cmp al,37h 

jne chk_8 

5 mov dbox_routine , of f set phi_routine 

jmp short address_done 

chk_8: 

cmp al,38h 

10 jne chk_9 

mov dbox_routine, offset baud_loopl_routine 

jmp short address_done 

15 chk_9: 

cmp al,39h 

je send_loop2 

jmp get_key_in 
send_loop2 : 

20 mov dbox_routine,offset baud_loop2_routine 

address_done : 

call init_dbox 

25 ret 

DBOX_ADDRESS ENDP 
END 



30 



35 



40 



.model small 
.286 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
DBOX Display box routines 

DBOX initializes the screen to 640 X 350 graphics mode and 

draws a picture of an oscilloscope display. The routine plot joint 

is then used to place a point on the oscilloscope. 



;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
45 include equates 



50 



BLACK 


equ 


0 


BLUE 


equ 


1 


GREEN 


equ 


2 


CYAN 


equ 


3 


RED 


equ 


4 
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10 



15 



20 



25 



If AP1TMTA 




equ 


dKvJWN 


equ 


0 




equ 


7 


DARKGRAY 


equ 


8 


LIGHTBLUE 


equ 


Q 

y 


LIGHTGREEN 


equ 


1U 


LIGHTCYAN 


equ 


n 


LIGHTRED 


equ 


12 


LIGHTMAGENTA 


equ 


YELLOW 




equ 


WHITE 


equ 


15 



13 
14 



public 



ini^dbox.plotjoint.x.y 



set color macro new color 



push 


ax 


push 


dx 


mov 


dx, 3ceh 


xor 


al.al 


mov 


ah , new_color 


out 


dx, ax 


pop 


dx 


pop 


ax 


en dm 





; clear node 0 using set/reset 
; init SET/RESET to color 



30 



35 



40 



45 



50 



scope_point struc 
center 

xy dw 
bit_position 



center_lg db 
up_lg db 
down_lg 

side_center_lg 
side_up_lg db 
side_down_lg 

center_dg db 
up_dg db 
down_dg 

s lde_center_dg 
side_up_dg db 
s lde_down_dg 



center_b 
up_b 



db 
db 



dw 
0 

db 

0 
0 

db 
db 
0 

db 

0 
0 

db 
db 
0 

db 

0 
0 



Offffh 



0 
0 



0 
0 



; the point 



; light gray 



; dark gray 



; blu 
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down_b 


db 


0 






side_center_b 


db 


0 






side_up_b db 


0 








side_d vn_b db 


0 






5 












scopejoint ends 










.data 








1 A 


color 


db 


? 






; defines the display 


box 






left 


dv 


? 






top 


dv 


? 




1 C 

15 


right 


dv 


? 






bottom 




dw 


? 




vert_top 


dv 


? 






vert_dif 


dv 


? 






; x - horizontal point 


y - 


vertical 




X 


db 


■ ? 






y 


db 


? 






delta_x 




db 


? 


25 


delta_y 




db 


? 




point_ptr 


dv 


? 





30 



35 



40 



45 



pointO 
pointl 
point2 
point3 
point4 
point 5 
point 6 
point7 

dbox_menu_s tart 
dbox_menu db 
db 
db 

dbox_menu_end 

dbox_label_s tart 
dbox_label db 
dbox label end 



scope_point O 
scope_point O 
scope_point O 
scopejpoint O 
scope_point O 
scope_point O 
scope_point O 
scope_point O 

label byte 

' Fl --- Display Menu* ,cr, If 
1 F2 Terminal Mode' ,cr, If 

' F10 --- Hangup' 
label byte 

label byte 

9 S0FTM0DEM DISPLAY BOX' 
label byte 



• c d 

50 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
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INIT DBOX PROC NEAR 



mov cx , 8 

call zero joints 

mov point_ptr,0 

call scope 



10 



15 



20 



25 



30 



35 



mov 
mov 
out 

mov 
mov 
out 

mov 

mov 

mov 

mov 

mov 

push 

pop 

mov 

int 

mov 
mov 
mov 
int 

mov 
mov 
out 

mov 
ret 



; display the oscilloscope 



dx, 3ceh 

ax,1005h 

dx,ax 

dx,3ceh 

ax,0001h 

dx,ax 



enable set/reset all planes 



ax,1300h 
bh,0 

bl, (YELLOW XOR LIGHTGRAY OR 80h ) 

cx, dbox_menu_end-dbox_menu_start 

dx,0000h 

ds 

es 

bp, offset dbox_menu 
lOh 

cx , dbox_label_end-dbox_label_start 
dx,171dh 

bp, off set dbox_label 
lOh 



dx,3ceh 
ax,0f01h 
dx, ax 

color, YELLOW 



; enable set/reset all planes 



40 



45 



50 



INITJDBOX ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

SQUARE PROC NEAR 

push ax 

push bx 

push cx 

push dx 

push di 
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mov 


dx f 3ceh 




xor 


al f al 




mov 


ah , color 




out 


dx f ax 










mu V 












mov 


ax, 80 




Imul 


bx 


10 








mov 


di , ax 




UIU V 


ay lA-Ft 

CUV | 




shr 


ax 3 

CUV , 


15 


dec 


ax 




add 


di,ax 






VCtt top , Ql 




mov 


dx,03ceh 


20 


mov 


ax,0308h 




out 


dx, ax 




; put in the two pixels 




mov 


bl.es: [di] 


25 


stosb 






push 


di 




add 


di,79 




mov 


bl.es: [di] 




; second line 


30 


stosb 






pop 


di 




mov 


ax,0ff08h 


35 


out 


dx, ax 




mov 


cx, right 




sub 


cx,left 




shr 


cx,3 


40 


mov 


vert_dif ,cx 




inc 


vert_dif 




push 


di 




push 


cx 


45 


rep 


stosb 




pop 


cx 




pop 


di 




push 


cx 


50 


add 


di.80 



; clear mode 0 using set/reset 
; init SET/RESET to color 

; up two from the corner 
; convert top to byte address 



/8 

left corner begins one byte earlier 
save for double line 
enable right two pixels 



di is the start of the solid line 
go to next line 



03ceh 



get the number of bytes across 
/8 

save for double line 



; top line 



122 



10 



15 



20 



25 



30 



35 



40 



45 



50 



rep 
pop 



stosb 
cx 



mov dx,03ceh 
mov ax,0c008h 
out dx , ax 



; next line 

; enable left tw pixels 



; put in the two pixels that make up the upper right corner of the box 
mov dl,es:[di] 
stosb 

sub di,81 
mov dl,es:[di] 
; second line 
stosb 



one past the bottom of the box 
get the bottom left point 



mov 


bx, bottom 




inc 


bx 


• 
» 


mov 


ax, 80 


> 


imul 


bx 




mov 


di,ax 




mov 


ax, left 


• 


shr 


ax, 3 




dec 


ax 


» 


add 


di,ax 




mov 


dx,03ceh 




mov 


ax,0308h 




out 


dx,ax 




mov 


dl,es:[di] 




stosb 






add 


di,79 


> 


mov 


dl,es: [di] 




ond line 




stosb 






mov 


dx,03ceh 


» 


mov 


ax,0ff08h 




out 


dx, ax 




push 


di 




push 


cx 




rep 


stosb 




pop 


cx 




pop 


di 




sub 


di,80 


i 


rep 


st sb 




mov 


dx,03ceh 


• 
» 



one byte left of the box 
enable right two pixels 



next line 



enable all the pixels 



second bottom line 



second bottom line 

enabl left two pixels 
123 



mov ax,0c008h 
ut dx,ax 

mov dl f es:[di] 
stosb 

add di,79 
mov dl,es:[di] 
second line 
stosb 



; one line down 



set up the map mask register to RED and also the set/reset register to reset 
the 0 and 3 planes 

mov dx f 03ceh ; enable pixels 1 and 0 
mov ax f 0308h 
out dx,ax 

to change the pixels to a new color must enable them in 

the MAP MASK register. . Use SET/RESET reg to clear or set the new color 

Use the bit mask to efiable the correct bits 

; set map mask to the three planes 
that need to change 
color - 4 . . . RED 



mov 


dx,3c4h 


mov 


ax,0f02h | 


out 


dx,ax 


mov 


dx,3ceh 


mov 


ax,0f01h 


out 


dx,ax 


mov 


ah, color 


xor 


al.al ; 


out 


dx,ax ; 


add 


vert_top , 160 


mov 


di,vert_top 


mov 


bx,vert_top 


mov 


ax, bottom ; 


sub 


ax, top 


inc 


ax 


mov 


cx,ax 


add 


bx,vert_dif ; 


push 


cx 


loopl : 




mov 


dl,es:[di] 


mov 


es: [di] ,al 


add 


di,80 


loop 


vert_loopl 



; ENABLE SET/RESET 3 planes that are zero 



; point to first line under top/left 
line count 

get first line under top/right 
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m v dx,03ceh ; change bit mask t the tw left bits 
m v ax,0c008h 
out dx , ax 



10 



15 



20 



25 



30 



35 



40 



45 



pop 


cx 






mov 


al,03h 






vert_loop2 : 








mov 


dh, es : [bx] 






mov 


es : [bx] ,al 






add 


bx, 80 






loop 


vert_loop2 






pop 


dl 






pop 


dx 






pop 


cx 






pop 


bx 






pop 


ax 






ret 








SQUARE 


ENDP 






;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


HORIZ_LINE 


PROC NEAR 






push 


ax 






push 


bx 






push 


cx 






push 


dx 






push 


di 






mov 


dx,03ceh 


i 


enable all the pixels 


mov 


ax,0ff08h 






out 


dx, ax 






mov 


ah , color 


i 


enable SET/RESET to the color 


xor 


al,al 






out 


dx, ax 






mov 


ax,0f01h 


i 


enable SET/RESET all planes 


out 


dx, ax 






mov 


ax, 80 


i 


convert top to byte address 


imul 


top 




mov 


di,ax 






mov 


ax, left 






shr 


ax, 3 


i 


/8 


add 


di, ax 







50 



125 



10 



15 



20 



25 



30 



35 



40 



45 



mov 


ax, right 


sub 


ax, left 


shr 


ax, 3 


mov 


cx,ax 


rep 


stosb 


pop 


di 


pop 


dx 


pop 


cx 


pop 


bx 


pop 


ax 


ret 





; get the number of bytes across 
! /8 

; byte count 
; draw the line 



H0RIZ_LINE ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
VERT LINE PROC NEAR 



push 


ax 


push 


bx 


push 


cx 


push 


dx 


push 


di 


mov 


dx, 03ceh 


mov 


ax,08008h 


out 


dx,ax 


mov 


ah, color 


xor 


al,al 


out 


dx, ax 


mov 


ax,0f01h 


out 


dx, ax 


mov 


ax, 80 


imul 


top 


mov 


di,ax 


mov 


ax, left 


shr 


ax, 3 


add 


di,ax 


mov 


cx, bottom 


sub 


cx, top 


inc 


cx 



enable the left most pixel 

enable SET/RESET to the color 

enable SET/RESET all planes 
convert top to byte address 



; get the number of bytes down 



50 



vert_loop3 : 
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mov 


dl,es:[di] 






mov 


es:[di],al 






aua 


ox , ou 




5 


loop 


vert_loop3 






mov 


dx,03ceh ; 


enable all the pixels 




mov 


ax t 0ff08h 




out 


dx,ax 




10 


pop 


di 






pop 


OX 






pop 


cx 






pop 


DX 






pop 


ax 














ret 








VERT_LINE 


ENDP 




20 


;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 




> 

SCOPE PROC 


NEAR 






push 


ax 




25 


push 


bx 






push 


cx 






push 


dx 






push 


di 






push 


es 




Jv 










mov 


ax, 16 ; 


640 x 350 graphics mode 




int 


lOh 


35 


mov 


dx.OaOOOh ; 


segment for diaplay adapter 


mov 


es,dx 






; This routine changes the color of the screen using SET/RESET 




mov 


dx, 3ceh 


; enable set/reset all planes 




mov 


ax.OfOlh 




out 


dx,ax 






xor 


al.al ; 


clear mode 0 using set/reset 




mov 


ah , L1GHTGRAY 




45 


out 


dx,ax 






mov 


ax,1005h ; 


set to mode 0 




out 


dx, ax 




50 


; CLS 







127 



10 



15 



20 



25 



30 



35 



40 



45 



xor di.di 

xor ax, ax 

mov cx, 14000 

rep stosw 



; write t each location 



comment 
insert a grid 



! 



mov 


dx,03ceh 


mov 


ax v 08008h 


out 


dx,ax 


mov 


ah , RED 


xor 


al,al 


out 


dx,ax 


mov 


ax.OfOlh 


out 


dx,ax 


mov 


cx, 28000 


mov 


di f 0 



enable all the pixels 



; enable SET/RESET to the color 



enable SET/RESET all planes 



vert_loop4: 

mov dl,es:[di] 
stosb 

loop vert_loop4 
! 

; center the display box on the screen 



mov 


left ,64 


mov 


right, 64+512 


mov 


top, 48 


mov 


bottom, 48+255 


mov 


color, BLUE 


call 


square 


mov 


bx, bottom 


inc 


bx 


sub 


bx, top 


shr 


bx,3 ; ] 


mov 


cx,7 


push 


top ; j 


mov 


color, DARKGRAY 



50 



line_loop : 

add top,bx 

cmp cx,4 

je no_linel 

call horiz_line 

no_linel : 

loop line_loop 



1/8 

save top for the square 

skip the center line 
line uses t p, left, right 
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pop 


top 




push 


left 




mov 


bx, right 




sub 


bx,left 


5 


shr 


bx,3 




mov 


cx,7 




vline loop: 






add 


left.bx 




cmp 


cx,4 


10 


je 


no_line2 




call 


vert_line 




no_line2: 






loop 


vline_loop 


15 


; write the 


center lines 




pop 


left 




mov 


color, BLUE 




push 


top 




mov 


bx , top 


20 


mov 


ax, bottom 




sub 


ax , top 




sar 


ax, 1 




add 


ax,bx 




mov 


top, ax 


25 


call 


horiz_line 




pop 


top 




mov 


bx, left 




mov 


ax, right 


30 


sub 


ax,bx 




sar 


ax, 1 




add 


ax.bx 




push 


left 




mov 


left, ax 


3D 


call 


vert_line 




pop 


left 




pop 


es 




pop 


di 


40 


pop 


dx 




pop 


cx 




pop 


bx 




pop 


ax 


45 


ret 





save left 



1/8 



skip the center line 

vline uses top, bottom, and left 



1/2 



; 1/2 



50 



SCOPE ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



129 





PLOTJPOINT 


PROC NEAR 




push 

* 


ax 




push 


bx 


5 


push 


cx 




push 


dx 




push 


di 




push 


es 


10 


mov 


dx,0a000h ; segment for diaplay adapter 




mov 


es,dx 




call 


restore_old 


15 


mov 


ax, 127 




sub 


al,y 




add 


ax, top 




mov 


bx,80 




imul 


bx 


20 


mov 


di,ax ; row byte count 




mov 


ax, 128 




add 


al,x 




sal 


ax,l ; 512 pixels accross 


ZD 


add 


ax, left 




; divide by eight and leave the remainder in dl 




mov 


dl.al 




and 


dl,7h 


30 


shr 


ax, 3 ; /8 


add 


di,ax ; offset to correct byte 



; upon entry di has the pixel address and dl has the bit position 
call save_new ; save the new one 
add point_ptr,2 
35 and point_ptr ,0fh 

set_color color 

; write the new pixel 
40 ; dl has the bit count in the correct byte 



45 



50 



xor 


bh,bh 




mov 


bl,dl 




mov 


ch,dl 


; save ch - 0,2,4, 


mov 


ah,center_0[bx] 


mov 


al,8 




mov 


dx,03ceh 


; enable the pixel 


out 


dx,ax 


mov 


cl,es: [di] 


; cent r line 






130 



mov 



es:[di],cl 



10 



15 



mov 
out 

add 
cmp 

je 

mov 

mov 

skip_bottom: 
sub 
cmp 

je 

mov 

mov 



ah , center_0 [bx+1 ] 
dx, ax 



di,80 
y.-128 
skip_bottom 
cl.es: [di] 
es:[di],cl 



lower line 



dl,160 
y.127 
skip_top 
cl.es: [di] 
es: [di] ,cl 



upper line 



20 



25 



skip_top : 

; If the center pixel is near the left or right side then we 

; must fill iri the pixels in the adjoining byte 

; Because we only plot on even pixels... ch can equal 0,2,4,6 

; pixels 2 and 4 are in the center of the byte so no extra work. 

; if on the left edge of the display box... skip 



30 



35 



40 



45 



50 



cmp 


x,-128 


je 


not_left_side 


cmp 


ch,0 


jne 


not_left_side 


mov 


ah, 00000001b 


out 


dx,ax 


dec 


di ; 


cmp 


y.127 


je 


skip topi 


mov 


cl.es: [di] ; 


mov 


es: [di],cl 


skip topi: 




add 


di,160 


cmp 


y,-128 


je 


skip_bottoml 


mov 


cl f es:[di] ; 


mov 


es: [di],cl 


skip_bottoml: 


sub 


di,80 


mov 


ah, 00000011b 


ut 


dx,ax 


m v 


cl,es:[di] ; 


mov 


es:[di],cl 



; setup right most pixel 



one left of upper row 



upper line 



lower line 



center line 



131 



jmp short n t_right_side 





not_left_side: 






cmp 


x,127 ; if on 


right edge 


5 




not_right_side 






cmp 


ch,6 






jne 


no t_r lght_s ide 




10 


cnrD 


y.-128 






je 


not_right_side 






mov 


ah 9 10000000b ; 


setup left 




out 


dx,ax 


15 










add 


di f 81 ; one row down one 




mov 


cl,es: [di] ; lower 


line 




mov 


es:[di],cl 




20 


not_right_side: 






pop 


es 






pop 


di 






pop 


dx 






pop 


cx 






pop 


bx 






pop 


ax 






ret 






30 


.data 








center_0 


db 11100000b ; 


first line 



35 



center 2 



db 

db 
db 



11000000b 

11111000b 
01110000b 



second is the upper and lower lines 



40 



center 4 



center 6 



db 
db 

db 
db 



00111110b 
00011100b 

00001111b 
00000111b 



.code 

45 PLOT_POINT ENDP 

; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%« 
RESTORE OLD PROC NEAR 

50 
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push ax 

push bx 

push cx 

push dx 

push di 

push si 

lea si 9 points 
add si,point_ptr 
mov ax,ds:[si] 
mov si, ax 
lodsv 

mov di , ax 

lodsw ; get the point 

mov cx,ax ; scope point 

lodsb 

xor bh,bh 

mov bl,al ; bit position 

set_color LIGHTGRAY 
call do_color 

set_color DARKGRAY 
call do_color 

set_color BLUE 
call do color 



pop si 

pop di 

pop dx 

pop cx 

pop bx 

pop ax 

ret 



no_point: 



. data 
points 



dw offset pointO 



dw 
dw 
dw 
dw 
dw 
dw 
dw 



offset pointl 
offset point2 
offset point3 
offset point4 
offset points 
offset p int6 
offset p int7 



10 



code 

REST0RE_0LD ENDP 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

D0_C0L0R PROC NEAR 
upon entry: 

DI - center byte address 
SI - center byte color content address 
CH - x 
CL - y 

BL - bit position within byte 

; save center location 





push 


di ; 


15 


push 


si 




; check all 


six sides for 




push 


si 




push 


cx 


20 


xor 


ah, ah 




mov 


cx,6 




any_color_loop : 




lodsb 




25 


cmp 


al,0 


jne 


yes_restore 




loop 


any_color_loop 




pop 


cx 




pop 


si ; 


30 


jmp 


restore_exit 



leave si at next address 



35 



40 



45 



yes_restore : 



pop 


cx 


pop 


si 


mov 


dx,03ceh 


lodsb 




cmp 


al,0 


je 


no_center 


mov 


ah, al 


mov 


al,08h 


out 


dx,ax 


mov 


al,es: [di] 


mov 


es:[di],al 



graphics 1 and 2 address 
center pixels 



center restore 



50 



no_c enter: 
sub 



di,80 



upper line 
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lodsb 





cmp 


al,0 






je 


no_up 




5 










cop 


Cl , Ll / 


; upper edge? 




je 


no_up 






mov 


ah y al 




10 


mov 


al,08h 






out 


dx f ax ; 


enable the LIGHTGRAY nivoic 




mov 


al,es:[di] ; 


upper restore 




mov 


es:[di],al 




15 










no_up : 








add 


di,160 






lodsb 






on 


cmp 


al,0 






je 


no_down 






cmp 


cl, -128 






je 


no_down 




25 










mov 


ah,al 






mov 


m, l not 

al ,08h 






out 


dx, ax ; 


enable the LIGHTGRAY pixels 


30 


mov 


al f es:[di] ; 


lower restore 




mov 


es: [di] t al 






no down : 






35 


lodsb 


» 


side center byte 


cmp 


bl.O ; 


left edge 




J e 


lert_3_Dytes 






cmp 


bl,6 






jne 


restore_exit 




40 


; since the 


old dot is at 


location 6 just restore the 




sub 


di,79 ; 


one line up, one right 




cmp 


ax , 0 






je 


restore_exit 




45 










cmp 


ch,127 






je 


restore_exit 






mov 


ah,al 




50 


mov 


al,08h 
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out dx,ax 

mov al,es:[dl] ; lower restore 
mov es:[di],al 



10 



jmp short restore_exit 

; here the dot is on the leftmost side so restore the left three bytes 
lef t_3_bytes : 

cmp ch,-128 

je restore_exit 



15 



sub di,81 
cmp al , 0 
je left_up 



one row up, one byte left 



20 



mov ah , al 

mov al , 08h 

out dx , ax 

mov al , es : [ di ] 

mov es:[di],al 



lower restore 



lef t_up : 
25 sub di,80 

lodsb 



30 



35 



40 



cmp cl t 127 

je no_side_up 

cmp al , 0 

je no_side_up 

mov ah,al 

mov al , 08h 

out dx,ax 

mov al.es: [di] 

mov es:[dij,al 

no_side_up: 

add di,160 
lodsb 



lower restore 



45 



cmp cl,-128 

je restore_exit 



50 



cmp al , 0 

je restore_exit 
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mov ah,al 

mov al,08h 

out dx, ax 

mov al,es:[di] ; lover restore 

mov es : [ di ] , al 

restore_exit: 

pop si 

add si ,6 ; next color block 

pop di 

ret 



DO_COLOR ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

SAVE_NEW PROC NEAR 
; upon entry: 

; DI - center byte address 

; DL - bit offset inside the byte 



lea 


bx, points 




add 


bx, point_ptr 




mov 


ax.ds: [bx] 




mov 


bx, ax 




mov 


ds: [bx] ,di 


; center address 


mov 


ah,x 




mov 


al,y 




mov 


ds: [bx+2] ,ax 


; xy 


mov 


ds:[bx+4],dl 


; bit offset 


lea 


si .center 0 


; SI - the bit pattern 


xor 


dh,dh 




add 


si, dx 




; zero out 


all the color 


information 


add 


bx,5 


; start of the color information 


mov 


cx,18 




xor 


al f al 




push 


bx 




zero_loop : 






mov 


ds: [bx] ,al 




inc 


bx 




loop 


zero loop 




pop 


bx 




push 


dx 




m v 


dx t 3ceh 




m v 


ax,1805h 
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out 


dx,ax 


mov 


al,05 


out 


dx.al 


inc 


dx 


in 


al,dx 


or 


al,08h 


mov 


ah, al 


mov 


al,05h 


dec 


dx 


out 


dx ax 


mov 


ax,1005h 


out 


dx, ax 


mov 


ax,0f07h 


out 


dx ax 


mov 


ah , LIGHTGRAY 


mov 


al,02 


out 


dx, ax 


pop 


dx 

* 


jmp 


exit 


call 


get_color 


yuan 


dx 


mov 


dx f 03ceh 


Ul\J V 


flK HAP AV 


mov 


al,02 


out 


dx, ax 


pop 


dx 


call 


get_color 


push 


dx 


mov 


dx,03ceh 


mov 


ah, BLUE 


mov 


al,02 


out 


dx,ax 


pop 


dx 


call 


get_color 



exit: 



ret 



45 



SAVE NEW 



; read mode 1... color compare 

; color don't care register 

; set the color compare register 



; set the color compare register 



; set the color compare register 



ENDP 



50 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
GET COLOR PROC NEAR 
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push bx 
push di 



; save the address 





mov 


al f es:[di] 


5 


and 


al,ds: [si] 




mov 


ds: [bx] ,al 




sub 


di,80 




cmp 


y,127 


10 


je 


no_upper 




mov 


al t es: [di] 




and 


al.ds: [si+1] 




mov 


ds: [bx+1] ,al 



15 



20 



; get the pixels whixh are th desired c 1 r 
; only save the bits that will change 



no_upper : 
add 
cmp 
je 

mov 
and 
mov 



di,160 
y,-128 
chk_bit_cnt 

al.es: [di] 
al f ds: [si+1] 
ds:[bx+2],al 



25 



chk bit cnt: 





cmp 


dl.O 




je 


get_left_3 




cmp 


dl,6 


30 


jne 


save_exit 




cmp 


x,127 




je 


save_exit 


35 


sub 


di,79 ; up 




mov 


al.es: [di] 




and 


al, 10000000b 




mov 


ds: (bx+3] ,al 


40 








jmp 


short save_exit 




get_lef t_3 : 






cmp 


x,-128 


45 


je 


save_exit 




sub 


di,81 ;. up 




m y 


al.es: [di] 


50 


and 


al, 00000011b 



up one, right one 



;, up one, left one 
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mov ds: [bx+3] ,al 

sub di,80 

cmp y,127 

je no_left_up 

mov al,es: [di] 
and al f 00000001b 
mov ds:[bx+4],al 

no_lef t_up : 

add di f 160 

cmp y,-128 
je save_exit 

mov al,es:[di] 

and al , 00000001b 

mov ds:[bx+5],al 

save_exit: 

pop di 

pop bx 

add bx,6 

ret 

GET_C0L0R ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%% 

> , 

ZER0_P0INTS PROC NEAR 

; upon entry CX - number of points to zero 

push es 

push ds 

pop es 

eld 

lea di,point0 

xor ax, ax 
pointJLoop: 

push cx 

mov cx,23 

rep stosb 

pop cx 

loop point_loop 

pop es 
ret 
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ZERO_POINTS ENDP 



10 



15 



20 



25 



END 
MODEL SMALL 
286 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%% 
Main transmitter 

This code checks to see if the baud time is done. If it is 
then it modulates either marks or user data. It uses a transmit 
buffer which is 8K long. 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%% 

include equates 

public init_tx,txl224,tx_flags 

public get_tx_data f reverse_table 

public tx_chAr_in f tx_char_buf_start 

public tx_char_buf _end , tx_char_out 

public tx_in_ptr, tx_out_ptr 

public setup_sample_cnt , sample_count 

extrn tx dma on: near 



30 



35 



extrn 
extrn 
extrn 
extrn 
extrn 
extrn 
extrn 



rx_sample_cnt : word 

rx_in : word, recv_f lags: word 

recv_sample_count : word 

tx_sample_ segment : word 

rx_sample_segment : word 

tx_dma_alal6 :word 

aic_cmdl : word , aic_cmd2 : word 



extrn processed: byte 



.data 



40 



45 



50 



data_count db 
data_1200 db 
prev_qlq0 db 
tx_baud_count 
baud_data dw 

tx_flags dw 

tx_flags.0 - 1 
tx_flags.l - 1 
tx_flags.2 - 1 



? 
? 
? 

dw 

? 



data to transmit 



tx high band 
tx 2400 

scrambler is on 
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tx_flags.3 - 1 


1200 baud data available 






tx_flags.4 - 1 


send marks 






tx_flags.5 - 1 


send SI ( 1100 ) 






tx_flags.8 — 1 


send AIC cmds 


5 




tx_flags.9 - 1 


A1C cmds went out 






tx_D I t_count 


db 


? 






scrambler_l_16 


dw 


* 


10 




o/^^*amVk1 Air f\ #41% 
oCi.ciiIlUi.CL U CIO 


? 








tx_in_ptr dw 


? 








ux out per ow 


? 




15 




sample_count 


dw 


* t AJ - numnex 01 samples is 










; than this then compute more 






sample_num dw 


? 


; number of samples to calculate 










, per Daua time 






• 








anO_ptr 


VI W 


i i an sample pointers 






anl_ptr 


dw 


? 






an2_ptr 


dw 


? 
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bnO_ptr 


dw 


? ; bn sample pointers 






bnl_ptr 


dw 


? 






bn2_ptr 


dw 


? 






temp_tx_bufO 


dw 


16 dup(?) 


30 












t_parse_jmp dw 


? 








tx_char_in dw 


? 








tx_char_out dw 


? 





35 



40 



tac_char_buf_start label byte 
tx_char_buf db 2000 dup(?) 
tx_char_buf_end label byte 



send data db 



.code 
INIT TX 



FR0C NEAR 



45 



50 



don't affect which band to transmit in 
and tx_f lags , lh 

tx_flags f 4h ; turn on the scrambler 

tx_char_in, offset tx_char_buf 
tx_char_out, offset tx_char_buf 



or 

mov 

mov 



xor 



ax, ax 
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10 



mov 


tx_in_ptr ,ax 


m v 


tx_out_ptr , ax 


mov 


t_parse_jmp , ax 


mov 


an0_ptr f ax 


mov 


anl ptr , ax 


mov 


an2_ptr ,ax 


mov 


bn0_ptr,ax 


mov 


bnl_ptr f ax 


mov 


bn2_ptr , ax 


mov 


tx_baud_count , ax 


call 


s e tup_s amp 1 e_cnt 



ret 



15 



INIT TX 



ENDP 



20 



25 



30 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
SETUP SAMPLE CNT PROC NEAR 



test tx_flags,bO 

j nz high_band 

mov sample_num , 8 

mov sample_count , 12 

test recv_f lags , bO 

j nz counts_done 

mov sample_count,20 

mov sample_count , 100 
ret 



; use larger count for tones and also 
safety at 12 and 2400 baud 
20 ms delay for safety 



35 



40 



high_band: 
mov 
mov 
test 
jnz 
mov 
mov 

; counts_done : 
ret 



sample_num, 16 
sample_count , 24 
recv_flags,b0 
counts_done 
sample_count , 40 
sample_count , 200 



45 



SETUP_SAMPLEj;NT ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
GET TX DATA PROC NEAR 
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mov ax , tx_in_p t r 
sub ax , tx_out_ptr 
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30 



35 



40 



45 



jns 
add 
not_neg: 
shr 
cmp 
stc 
jle 

mov 
mov 
mov 

mov 
mov 



not_neg 
ax t buf_len 

ax,l ; word count 

ax, recv_sample_count 



no_data 

di , rx_in 

si, tx_out_ptr 

cx , recv_sample_count 

ax , rx_sample_segment 
bx, tx_sample_segment 



doesn't use the Carry flag... so OK 



transfer just the samples needed 



push ds 
push es 
mov 
mov 
rep 
pop 
pop 



ds,bx 
es, ax 
movsv 
es 
ds 



si,buf_len 
no_tx_wrap 
si, si 



di , buf _len 
no_rx_wrap 
di,di 

tx_out_ptr ,si 
rx_in,di 



cmp 
jne 
xor 
no_tx_wrap : 

cmp 
jne 
xor 
no_rx_wrap : 
mov 
mov 
clc 

no_data: 
ret 



GET_TX_DATA ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
TX1224 PROC NEAR 



; flag got data 
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IF board 

mov dx , wr_clr_by te_p tr 

ut dx,al 
jmp $+2 



; init flag to low byte 
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10 



mov dx , dma_5_address 

in al.dx 

mov cl.al 

jmp $+2 

in al.dx 

mov ch.al 

jmp $+2 

; check to see if the low byte rolled over 

mov dx,wr_clr_byte_ptr ; init flag to low byte 

out dx , al 

jmp $+2 



15 



20 



25 



30 



35 



40 



45 



mov 

in 

cmp 

je 

mov 

jmp 
in 
mov 
jmp 

no_roll: 
mov 
shr 
add 
sub 
jns 
add 

pos_diff : 
cmp 

jl 
ret 

ELSE 
mov 
sub 
jns 
add 
pos_diff : 
shr 
cmp 

jl 
ret 
END IF 



dx , dma_5_address 

al,dx * 

al,cl 

no_roll 

cl,al 

$+2 

al ,dx 

ch,al 

$+2 



ax,tx_in_ptr ; calculate the tx buffer address 

ax,l ; word address 

ax , tx_dma_alal6 

ax,cx 

pos_diff 

ax,( buf_len / 2 ) 

ax , sample_count 
do tx 



ax, tx_in_ptr 
ax, tx_out_ptr 
pos_diff 
ax,buf_len 

ax,l ; word count 

ax , sample_count 
do tx 



50 



do tx: 



add ax , sample_num 
cmp ax,sample_c unt 



; this will prevent further calls t TX 
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jge nojprocessed 
or pr cessed,02h 
nojprocessed: 

and tx_flags,NOT b9 
test tx_flags f (b4 OR b5) 
jnz send_marks 

test tx_flags,b3 
jnz get_1200_data 

check_tx_data : 

; parse next data here 

cmp t_parse_jmp,0 ; any data left to parse 

je check_tx_char 

mov ax , t_parse_jmp 

call ax 

jmp short scrambler 



check_tx_char : 

mov ax , tx_char_in 

mov si, tx_char_6ut 

cmp ax, si 

je send_marks 
get_tx_char: 

lodsb ; get the character to transmit 

cmp si, offset tx_char_buf_end 
jne save_tx_ptr 
lea si, tx_char_buf_start 
save_tx_ptr: 

mov tx_char_out , s i 

shl ax,l ; insert start bit 

mov bl , al 

and bx,Ofh 

shr ax, 4 

mov send_data , al 

mov t_parse_jmp,offset parse_4_2_data 
jmp short scrambler 

get_1200_data: 

and tx_flags,0fff7h 

mov al,data_1200 

shl al,2 

and al,Och 

or al , Olh 

jmp short gray_encode 

sendjnarks : 

mov bx , Ofh 

test tx_flags,b5 ; send 1100 ? 

jz scrambler 
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mov bx.OcOh 



scrambler: 

; data to be scrambled should be in the 1 wer 4 bits of BX 
; THERE IS NO SCRAMBLER LOCKUP DETECTOR 





and 


bx.Ofh 




test 


tx_flags,b2 




jz 


no_scrambler 


10 


mov 


ax , scrambler_l_16 




xor 


bx,ax 




shr 


ax, 3 




xor 


bx,ax 


15 


or 


ah,scrambler_0 




shr 


ax,l 




and 


bx.Ofh 




mov 


cx,bx 




shl 


bx,13 


20 


or 


ax,bx 




mov 


scrambler_l_16 , ax 




mov 


bx.cx 




mov 


scrambler 0,0 




test 


bx,b3 


25 


J* 


no_scrambler 




mov 


scrambler^) , 20h 



scrambled data is in BX.O to BX.3 



save in CX 

shift scrambled data into the delay 
line 

restore data 



no_scrambler: 

mov al , reverse_table [bx] 

30 check_1200: 

test tx_flags,bl 
jnz gray_encode 

mov data_1200,al 

35 and al.Och 

or al.Olh 

or tx_flags,08h 

gray_encode : 
40 test al,b3 

j nz dif f_encode 
xor al f 4 
diff_encode: 

and prev_qlq0 , Och 
45 add al,prev_qlq0 

and ax.Ofh ; clear AH also 

mov prev_qlq0 , al 

f ilter_routine : 
50 shl ax f l ; word offset 
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mov bx,ax 

test tx_flags,b0 

j z low_baiid_f ilter 

jmp high_band_f ilter 

5 

low_band_f ilter : 

mov ax , low_band_bn [ bx ] 

mov bnO_ptr,ax 

10 mov ax,low_band_an[bx] 

mov anO_ptr f ax 

mov si, ax ; SI - ANO pointer 

mov di,anl_ptr ; DI - AN1 pointer 

15 mov bx,an2_ptr ; BX - AN 2 pointer 

; take care of the AIC and the receivers baud loop 





mov 


cx,utircn ; 


AIC 








20 


mov 


ax f n0_low_pl[si] ; 


cosine sample 0 






add 


ax , nl_low_pl [ di ] 












add 


ax , n2_low_p 1 [ bx j 












mov 


temp_tx_buf 0 , ax 






cos - +1 




25 


mov 


ax , n0_low_pl [ si+2 ] 




> 


cosine sample 1 




add 


ax , nl_low_pl [ di+2 ] 












add 


ax , n2_low_pl [bx+2 ] 












neg 


ax ; 


cos 




-1 






mov 


temp_tx_buf 0+2 , ax 










30 
















mov 


ax , n0_low_pl [ si+4 ] 




i 


cosine sample 


2 




add 


ax , nl_low_pl [ di+4 ] 












add 


ax , n2_low_pl [bx+4 ] 












neg 


ax ; 


cos 




•1 




35 


mov 


temp_tx_buf 0+4 , ax 












mov 


ax , n0_low_pl [ s i+6 ] 




i 


cosine sample 


3 




add 


ax t nl_low_pl [ di+6 ] 












add 


ax , n2_low_pl [bx+6 ] 










40 


mov 


temp_tx_buf 0+6 , ax ; 


cos 




+1 






mov 


ax , n0_low_pl [ si+8 ] 




i 


cosine sample 


4 




add 


ax , nl_low_pl [ di+8 ] 












add 


ax , n2_low_pl [bx+8 ] 










45 


mov 


temp_tx_buf 0+8 , ax ; 


cos 




+1 






mov 


ax , n0_low_pl [ si+10 ] 




9 


cosine sample 


5 




add 


ax , nl_low_pl [ di+10 ] 










50 


add 


ax , n2_low_pl [bx+10 ] 










neg 


ax ; 


cos 




-1 
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mov t mp_tx_buf0+10,ax 



mov 
add 
add 
neg 
mov 

mov 
add 
add 
mov 

mov 
mov 
mov 

mov 
add 
add 
sub 
and 

mov 
add 
add 
sub 
and 

mov 
add 
add 
add 
and 

mov 
add 
add 
add 
and 

mov 
add 
add 
sub 
and 

mov 
add 
add 



ax , nO_low_pl [ s i+12 ] 
ax,nl_lov_pl[di+12] 
ax , n2_low_pl [bx+12 ] 
ax ; cos 

temp_tx_buf0+12 , ax 

ax , nO_low_pl [ s i+14 ] 
ax , nl_low_pl [ di+14 ] 
ax , n2_low_pl [ bx+14 ] 
temp_tx_buf 0+14 , ax 



cosine sample 



-1 



; cosine sample 



cos 



+1 



si,bn0_ptr 
di f bnl_j>tr 
bx f bn2_ptr 

ax , n0_low_pl [ si ] 
ax , nl_low_pl [ di ] 
ax , n2_low_pl [ bx ] 
temp_tx_buf 0 ( ax 
temp_tx_buf 0 , cx 

ax , n0_low_pl [ si+2 ] 
ax , nl_low_pl [ di+2 ] 
ax , n2_low_pl [bx+2 ] 
temp_tx_buf 0+2 , ax 
temp_tx_buf0+2 ,cx 

ax , n0_low_pl [ s i+4 ] 
ax , nl_low_pl [ di+4 ] 
ax , n2_low_p 1 [ bx+4 ] 
temp_tx_buf 0+4 , ax 
temp_tx_buf 0+4 1 cx 

ax , n0_low_p 1 [ s i+6 ] 
ax , nl_low_pl [ di+6 ] 
ax , n2_low_pl [bx+6 ] 
temp_tx_buf 0+6 , ax ; 
temp_tx_buf 0+6 , cx 

ax , n0_low_pl [ s i+8 ] 
ax , nl_low_pl [ di+8 ] 
ax , n2_low_pl [bx+8 ] 
temp_tx_buf 0+8 , ax ; 
temp_tx_buf 0+8 f cx 

ax , n0_lowjpl [ si+10 ] 
ax , nl_low_pl [ di+10 ] 
ax , n2_low_pl [bx+10 ] 



SI - BN0 pointer 
DI - BN1 pointer 
BX - BN2 pointer 

sine sample 0 



sine- 



sine sample 1 



sine - -1 



sine sample 2 



; sine - +1 



sine sample 3 



sine - +1 



sine sample 4 



sine - -1 



sine sample 5 
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sub t mp_tx_buf 0+10 , ax 

and temp_tx_buf0+10 , cx 

mov ax , n0_lowj>l [ s i+12 ] 

add ax , nl_low_pl [ di+12 ] 

add ax , n2_low_pl [ bx+12 ] 

add temp_tx_buf 0+12 , ax 

and temp_tx_buf0+12 , cx 

mov ax , nO_low_pl [ s i+14 ] 

add ax f nl_low_pl [ di+14 ] 

add ax,n2_low_pl[bx+14] 

add temp_tx_buf 0+14 , ax 

and temp_tx_buf0+14 , cx 



; sine - -1 

; sine sample 6 

; sine - +1 

; sine sample 7 

; sine - +1 



All the transmit samples are in the temp buffer. 
Now shift them over to the transmit buffer. 



lea 
mov 
mov 

cmp 

ji 

mov 
sub 
sar 
mov 
sub 

rep 

xor 
mov 



si , temp_tx_buf 0 

es , tx_sample_segment 

di, tx_in_ptr 

di,(buf_len-16) 
nonwrap 



; near the end of the buffer? 



cx F buf_len 
cx.di 
cx, 1 
bx,8 
bx,cx 

movsv 

di.di 
cx,bx 



number of samples to fill buffer 
number left 
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rep movsw 

jmp short save_ptr 

; This routine is for the switch from 7200 to 9600 recv sample rate during 
; call progress 
send_aic_cmds : 

cmp di, (buf_len-22) ; near the end of the buffer? 

j ge move_data 

or tx_flags,b9 
and tx_f lags, NOT b8 

1 dsw 



150 



or ax, 3 
stosw 

mov ax , aic_cmdl 

stosw 

lodsv 

or ax,3 

stosw 

mov ax f aic_cmd2 

stosw 

mov cx,6 

rep movsw 

jmp short save_ptr 

no_wrap : 

test tx_flags,b8 ; any AIC cmds? 

jnz send_aic_cmds 
move_data : 

mov cx , 8 

rep movsw 

save_ptr: 

mov tx_in_p t r , di 

; shift the an,bn delay lines 

mov ax,anl_ptr 

mov an2_ptr,ax 

mov ax,anO_ptr 

mov anl_ptr,ax 

mov ax,bnl_ptr 

mov bn2_ptr , ax 

mov ax , bnO_p t r 

mov bnl_ptr f ax 

inc tx_baud_count 
cmp tx_baud_count , 2 
j 1 ok_leave_low 

; enable DMA channel 1 
call tx_dma_on 

ok_leave_low: 
ret 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
high_band_f ilter : 

mov ax,high_band_bn[bx] 

mov bnO_ptr f ax 

mov ax,high_band_an[bx] 
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mov anO_ptr,ax 

mov si, ax 

mov di , anl_ptr 

mov bx,an2_ptr 

AIC and baud loop variables 
mov cx.Offfch 



SI - ANO pointer 
DI - AN1 pointer 
BX - AN2 pointer 



mov ax,n0_high_pl[si] ; cosine sample 0 

add ax,nl_high_pl[di] 

add ax,n2_high_pl[bx] 

and ax,cx 

mov temp_tx_buf 0 , ax ; cos - +1 

mov ax,n0_high_pl[si+4] ; cosine sample 2 

add ax,nl_high_pl[di+4] 

add ax,n2_high_pl[bx+4] 

neg ax ; cos - -1 

and ax,cx 

mov temp_tx_buf 0+4 , ax ; skip sample 1 

mov ax,n0_high_pl[si+8] ; cosine sample 4 

add ax,nl_high_pl[di+8] 

add ax , n2 Jiigh _pl [bx+8 ] 

and ax,cx 

mov temp_tx_buf 0+8 , ax ; cos - +1 

mov ax,n0_high_pl[si+12] ; cosine sample 6 

add ax , nl_high_pl [ di+12 ] 

add ax , n2_high j>1 [bx+12 ] 

neg ax ; cos - -1 

and ax , cx 

mov temp_tx_buf 0+12 , ax 

mov ax,n0_high_pl[si+16] ; cosine sample 8 

add ax,nl_high_pl[di+16] 

add ax , n2 _high_pl [bx+16 j 

and ax,cx 

mov temp_tx_buf0+16,ax ; cos - +1 

mov ax,n0_high_pl[si+20] ; cosine sample 10 

add ax , nl_high_pl [ di+20 ] 

add ax , n2_high_j>l [bx+20 ] 

neg ax ; cos - -1 

and ax,cx 

mov temp_tx_buf 0+20 , ax 

mov ax,n0_high_pl[si+24] ; cosine sample 12 

add ax,nl_high_pl[di+24] 
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add ax,n2_high_pl[bx+24] 

and ax.cx 

m v temp_tx_buf 0+24 , ax ; cos - +1 

mov ax,n0_high_pl[si+28] ; cosine sample 

add ax , nl_high_pl [ di+28 ] 

add ax , n2_high_pl [bx+28 ] 

neg ax ; cos - -1 

and ax , cx 

mov temp_tx_buf 0+28 , ax 

mov si,bn0_ptr ; SI - BNO pointer 

mov di,bnl_ptr ; DI - BN1 pointer 

mov bx,bn2_ptr ; BX - BN2 pointer 

mov ax,n0_high_pl[si+2] ; sine sample 0 

add ax,nl_highj>l[di+2] 

add ax , n2_high_pl [bx+2 ] 

neg ax 

and ax,cx 

mov temp_tx_buf 0+2 , ax 

mov ax,n0_high_pl[si+6] ; sine sample 1 

add ax , nl_high_pl [ di+6 ] 

add ax , n2_high_pl [bx+6 ] 

and ax , cx 

mov temp_tx_buf 0+6 , ax 

mov ax,n0_high_pl[si+10] ; sine sample 2 

add ax , nl_high_pl [ di+10 ] 

add ax , n2_high_pl [bx+10 ] 

neg ax 

and ax , cx 

mov temp_tx_buf 0+10 , ax 

mov ax,n0_high_pl[si+14] ; sine sample 3 

add ax , nl Jiigh_pl [ di+14 ] 

add ax , n2_high_pl [ bx+14 ] 

and ax , cx 

mov temp_tx_buf 0+14 , ax 

mov ax,n0_high_pl[si+18] ; sine sample 4 

add ax,nljiigh_pl[di+18] 

add ax , n2_high_pl [bx+18 ] 

neg ax 

and ax v cx 

mov t emp_ tx_buf 0+1 8 , ax 

mov ax,n0_high_pl[si+22] ; sine sample 5 

add ax , nl Jiigh_pl [ di+22 ] 
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add ax , n2_high_pl [bx+22 ] 

and ax t cx 

mov t emp_tx_buf 0+2 2 , ax 

mov ax,n0_high_pl[si+26] ; sine sample 6 

add ax,nl_high_pl[di+26] 

add ax f n2_high_pl[bx+26] 

neg ax 

and ax,cx 

mov temp_tx_buf 0+26 , ax 

mov ax,n0_high_pl[si+30] ; sine sample 7 

add ax,nl_high_pl[di+30] 

add ax t n2_high _pl [bx+30 ] 

and ax , cx 

mov temp_tx_buf0+30 » ax 

; All the transmit samples are in the temp buffer. 

; Now shift them over to the transmit buffer. 

mov cx t 16 

lea s i , temp_tx_buf 0 

mov es , tx_sample_segment 

mov dl , tx_in_ptr 

rep movsv 

cmp di,buf_len 

jne save_in_ptr 

xor di,di 
save_in_ptr: 

mov tx_in_ptr , di 

; shift the an,bn delay lines 



mov 


ax F anl_ptr 


mov 


an2_ptr ,ax 


mov 


ax,anO_ptr 


mov 


anl_ptr , ax 


mov 


ax,bnl_ptr 


mov 


bn2 jptr f ax 


mov 


ax,bnO_ptr 


mov 


bnl_ptr,ax 


inc 


tx_baud_count 


cmp 


tx_baud_count , 2 




ok_leave_high 



; enable DMA channel 1 
call tx_dma_on 
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ok_leave_high : 
ret 



10 



15 



20 



.data 

reverse_table db OOh 

db 08h 

db 04h 

db Och 

db 02h 

db Oah 

db 06h 

db Oeh 

db Olh 

db 09h 

db 05h 

db Odh 

db 03h 

db Obh 

db 07h 

db Ofh * 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



25 



high_band_an 



30 



35 



40 



dw nO_high_pl - n0_high_pl 
nO_high_pl 
nO_high_pl 
nO_high_pl 
nO_high_pl 
nO_highj>l 
nO_high_pl 
nO_high_pl 
nO_high_pl 
nO_high_pl 
nO_high_pl 
nO_high_pl 
nO_high_pl 
nO_high_pl 
nO_high_pl 
nO_high_pl 



dw 


n0_high_p3 


dw 


nO_high_pl 


dw 


n0_high_p3 


dw 


nO_highjnl 


dw 


nO_high_ml 


dw 


n0_high_m3 


dw 


n0_high_m3 


dw 


nO_high_ml 


dw 


n0_high_m3 


dw 


nO_high_ml 


dw 


n0_highjm3 


dw 


nO_high_pl 


dw 


nO_high_pl 


dw 


n0_high_p3 


dw 


n0_high_p3 



high_band_bn 



45 



50 



dw nO_high_pl - nO_high_pl 

dw nO_high_pl - nO_high_pl 

dw n0_high_p3 - nO_high_pl 

dw n0_high_p3 - nO_high_pl 

dw nO_high_pl - nO_high_pl 

dw n0_high_p3 - nO_high_pl 

dw nO_high_pl - nO_high_pl 

dw n0_high_p3 - nO_high_pl 

dw nO_high_ml - nO_high_pl 
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10 



15 



20 



dv 
dv 
dv 
dv 
dv 
dv 
dv 

low_band_an dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
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low band bn 



30 



35 



40 



dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 
dv 



n0_high_ml 
n0_high_m3 
n0_high_m3 
n0_high_ml 
n0_high_m3 
n0_high_ml 
n0_high_m3 

nO_lov_pl - 
n0_lov_p3 - 
n0_lov_pl - 
n0_lov_p3 - 
n0_lov_ml - 
n0_low_ml - 
n0_low_m3 - 
n0_lovjn3 - 
n0_low_ml - 
n0_low_m3 - 
n0_lowjnl - 
n0_low_m3 - 
n0_low_pl - 
n0_low_pl - 
n0_low_p3 - 
n0_low_p3 - 



n0_low_pl 
n0_low_pl 
n0_low_p3 
n0_low_p3 
n0_low_pl 
n0_low_p3 
n0_lov_pl 
n0_low_p3 
n0_low_ml 
n0_low_ml 
n0_low_m3 
n0_low_m3 
n0_low_ml 
n0_low_m3 
n0_low_ml 
nO low m3 



- n0_high_pl 

- n0_high_pl 

- n0~high_pl 

- n0_high_pl 

- n0_high_pl 

- n0_high_pl 

- n0_high_pl 

n0_low_pl 
n0_low_pl 
n0_low_pl 
n0_low_pl 
nO_low_pl 
n0_low_pl 
n0_low_pl 
n0_low_pl 
n0_low_pl 
n0_lov_pl 
n0_low_pl 
n0_low_ pi 
n0_low_pl 
n0_lovj>l 
n0_low_pl 
n0_low_pl 



- n0_low_pl 

- n0_lov_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 

- n0_low_pl 



;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



45 n0_high_pl 



50 



dw 
dw 
dw 
dw 
dw 
dw 



-4 

-12 

-28 

-52 

-84 

-120 



; high band +1 point 
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dw -152 

dw -180 

dw -192 

dw -180 

5 dw -140 

dw -56 

dw 68 

dw 244 

dw 464 

10 dw 728 

n0_high_ml dw 4 ; high band -1 point 

dw 12 

dw 28 

15 dw 52 

dw 84 

dw 120 

dw 152 

dw 180 

20 dw 192 

dw 180 

dw 140 

dw 56 

dw -68 

25 dw -244 

dw -464 

dw -728 

n0_high_p3 dw 3 * -4 ; high band +3 point 

30 



35 



40 



45 



50 



dw 


3 


* 


-4 


dw 


3 


* 


-12 


dw 


3 


* 


•28 


dw 


3 


* 


-52 


dw 


3 


* 


-84 


dw 


3 


* 


-120 


dw 


3 


* 


-152 


dw 


3 


* 


-180 


dw 


3 


* 


-192 


dw 


3 


* 


-180 


dw 


3 


* 


-140 


dw 


3 


* 


-56 


dw 


3 


* 


68 


dw 


3 


* 


244 


dw 


3 


* 


464 


dw 


3 


* 


728 


dw 


3 


* 


4 


dw 


3 


* 


12 


dw 


3 


* 


28 


dw 


3 


* 


52 


dw 


3 


* 


84 



n0_high_m3 dw 3*4 ; high band -3 point 
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10 



dw 


3 


* 


120 


dw 


3 


* 


152 


dw 


3 


* 


180 


dw 


3 




192 


dw 


3 


* 


180 


dw 


3 


* 


140 


dw 


3 


* 


56 


dw 


3 


* 


-68 


dw 


3 


* 


-244 


dw 


3 


* 


-464 


dw 


3 


* 


-728 



;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



15 



20 



25 



30 



nl_hlgh_ml 



35 



40 



45 



50 



nl_high_p3 



dw 


1028 


dw 


1344 


dw 


1668 


dv 


1976 


dw 


2248 


dw 


2472 


dw 


2628 


dw 


2712 


dw 


2712 


dw 


2628 


dw 


2472 


dw 


2248 


dw 


1976 


dw 


1668 


dw 


1344 


dw 


1028 


dw 


-1028 


dw 


-1344 


dw 


-1668 


dw 


-1976 


dw 


-2248 


dw 


-2472 


dw 


-2628 


dw 


-2712 


dw 


-2712 


dw 


•2628 


dw 


-2472 


dw 


-2248 


dw 


-1976 


dw 


•1668 


dw 


-1344 


dw 


-1028 


dw 


3 * 1028 


dw 


3 * 1344 



; high band anl +1 point 



; high band anl -1 point 



; high band anl +3 point 
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10 



15 



nl_high_m3 



20 



25 



30 



35 



40 



45 



50 



dv 


3 * 


1668 . 


dv 


3 * 


1976 


dv 


3 * 


2248 


dw 


3 * 


2472 


dw 


3 * 


2628 


dv 


3 * 


2712 


dv 


3 * 


2712 


dv 


3 * 


2628 


dv 


3 * 


2472 


dv 


3 * 


2248 


dv 


3 * 


1976 


dv 


3 * 


1668 


dv 


3 * 


1344 


dv 


3 * 


1028 


dv 


3 * 


-1028 ; high band anl - 


dv 


3 * 


-1344 


dv 


3 * 


-1668 


dv 


3 * 


-1976 


dv 


3 * 


-2248 


dv 


3 * 


-2472 


dv 


3 * 


-2628 


dv 


3 * 


-2712 


dv 


3 * 


-2712 


dv 


3 * 


-2628 


dv 


3 * 


-2472 


dv 


3 * 


-2248 


dw 


3 * 


-1976 


dv 


3 * 


-1668 


dv 


3 * 


-1344 


dv 


3 * 


-1028 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


dv 


728 


; an2 f bn2 +1 points 


dv 


464 




dv 


244 




dv 


68 




dv 


-56 




dv 


-140 




dv 


-180 




dv 


-192 




dv 


-180 




dv 


-152 




dv 


-120 




dv 


-84 




dv 


-52 




dv 


-28 




dv 


-12 




dv 


-4 
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n2_high_ml 



10 



15 



n2_high_p3 



20 



25 



30 



35 n2_high_m3 



40 



45 



50 



aw 


"TOO 

-728 


aw 


-464 


aw 


A / / 

-244 


aw 


-68 


aw 


56 


aw 


140 


aw 


180 


«_ 

aw 


192 


* 

aw 


^ A A 

180 


aw 


"1 P A 

152 


dw 


120 


dw 


84 


dw 


52 


dw 


28 


dw 


12 


dw 


4 


dw 


3 * 728 


aw 


3 * 464 


j_ _ 
aw . 


3 * 244 


j_ ■ 
aw 


3 * 68 


dw 


3 * -56 


dw 


3 * -140 


dw 


3 * -180 


dw 


3 * -192 


dw 


3 * -180 


dw 


3 * -152 


dw 


3 * -120 


dw 


3 * -84 


aw 


3 * -52 


j_ _ 
aw 


3 * -28 


aw 


3 * -12 


j_ _ 
aw 


3 * -4 


aw 


3 * -728 


aw 


1 ml. i £ J 

3 * -464 


aw 


3 * -244 


dw 


3 * -68 


dw 


3 * 56 


dw 


3 * 140 


dw 


3 * 180 


dw 


3 * 192 


dw 


3 * 180 


j_ _ 
aw 


3 * 152 


dw 


3 * 120 


dw 


3 * 84 


dw 


3 * 52 


dw 


3 * 28 


dw 


3 * 12 


dw 


3*4 



an2,bn2 -1 points 



an2,bn2 +3 points 



an2,bn2 -3 points 
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;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%% 

l 

nO_low_pl dw -8 ; anO.bnO +1 points 



nO_low_ml dw 8 ; anO.bnO -1 points 



dw 


-8 


dw 


-40 


dw 


-100 


dw 


-168 


dw 


-188 


dw 


-104 


dw 


152 


dw 


592 


dw 


8 


dw 


40 


dw 


100 


dw 


168 


dw 


188 


dw 


104 


dw 


-152 


dw 


-592 


dw 


3 * -8 


dw 


3 * -40 


dw 


3 * -100 


dw 


3 * -168 


dw 


3 * -188 


dw 


3 * -104 


dw 


3 * 152 


dw 


3 * 592 


dw 


3*8 


dw 


3 * 40 


dw 


3 * 100 


dw 


3 * 168 


dw 


3 * 188 


dw 


3 * 104 


dw 


3 * -152 


dw 


3 * -592 



n0_low_p3 dw 3 * -8 ; an0,bn0 +3 points 



n0_low_m3 dw 3*8 ; anO.bnO -3 points 



;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%% 

» 

nl_low_pl dw 1184 ; anl.bnl +1 points 



dw 


1184 


dw 


1824 


dw 


2368 


dw 


2680 


dw 


2680 


dw 


2368 


dw 


1824 


dw 


1184 
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nl_lov_ml 


dv 


-1184 






dv 


-1824 






dv 


-2368 






dw 


-2680 


5 




dv 


-2680 






dv 


-2368 






dv 


-1824 






dv 


-1184 


10 


nl_lov_p3 


dv 


3 * 1184 






dv 


3 * 1824 






dv 


3 * 2368 






dv 


3 * 2680 






dv 


3 * 2680 


15 




dv 


3 * 2368 






dv 


3 * 1824 






dv 


3 * 1184 




nl_ lov_m3 


dv 


3 * -1184 


20 




dv 


3 * -1824 






dv 


3 * -2368 






dv 


3 * -2680 






dv 


3 * -2680 






dv 


3 * -2368 


25 




dv 


3 * -1824 






dv 


3 * -1184 




» 

;%%%%%%%%%%%%%%%%%%%%%%%%%%« 


30 


n2_lov_pl 


dv 


592 






dv 


152 






dv 


-104 






dv 


-188 






dv 


-168 


35 




dv 


-100 






dv 


-40 






dv 


-8 




n2_lov_ml 


dv 


-592 


40 




dv 


-152 






dv 


104 






dv 


188 






dv 


168 






dv 


100 


45 




dv 


40 






dv 


8 




n2_lov_p3 


dv 


3 * 592 






dv 


3 * 152 


50 




dv 


3 * -104 



anl.bnl -1 points 



anl.bnl +3 points 



anl,bnl -3 points 



an2,bn2 +1 points 



; an2,bn2 -1 points 



an2,bn2 +3 p ints 
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5 



10 



15 



20 



n2 low m3 



dv 


3 


* 


-188 


dw 


3 




-168 


dv 


3 


* 


-100 


dv 


3 


* 


-40 


dv 


3 


* 


-8 


dv 


3 


* 


-592 


dv 


3 


* 


-152 


dv 


o 
J 


it 


1 HA 


dv 


3 


* 


188 


dv 


3 


* 


168 


dv 


3 


* 


100 


dv 


3 


* 


40 


dv 


3 


* 


8 


ENDP 









an2,bn2 -3 points 



TX1224 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



. code 

PARSE DATA PROC NEAR 



25 



30 



35 



parse_4_0 
mov 

parse_4_2 
mov 
jmp 

parse_4_4 
mov 
jmp 

parse_it : 
mov 
mov 
shr 
or 
mov 
ret 



data 



data : 

t_parse_jmp,0 

short parse_it 
data : 

t_parse_jmp,offset parse_2_< 
short parse_it 
data : 

t_parse — jmp , offset parse_4_0_data 
short parse_it 

♦ 

al , send_data 

bl,al 

al,4 

al,0f0h 

send_data,al 



40 



45 



50 



parse_2_data: 

mov al , send_data 
al , Oeh 
bl.al 

ax , tx_char_in 
si , tx_char_out 
ax, si 

get_next_char 
t_parse_jmp,0 



or 
mov 
mov 
mov 
sub 
jnz 
m v 
ret 

get_next_char: 



; insert stop bits 

; any more chars to go out? 
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lodsb ; get the charact r to transmit 

cmp si, ffset tx_char_buf_ nd 
jne ok_done 
lea si, tx_char_buf _s tart 
k_done : 

mov tx char_out,si 
and bl703h 

shl ax, 3 ; insert start bit into ax. 2 

or bl,al 
shr ax, 4 

or al,80h ; insert the stop bit 

mov send_data , al 

mov t_parse _jmp,offset parse_4 4 data 
ret 

PARSE_DATA ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%% 
TX_COMMANDS PROC NEAR 



send si: 



and tx_f lags, 1111111111001001b ; 1200, no_scrambler, no marks 
or tx_f lags, 0000000000100000b 



ret 



send_scr_marks : 

and tx_f lags, 1111111111001011b ; no SI 

or tx_flags ,0000000000010100b ; scrambler on , send marks 



ret 

tx_data_on: 

and tx_f lags , 1111111111001111b 
ret 

TX_COMMANDS ENDP 
END 



model small 
286 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
Tone generation 

This program generates all sine waves. 

The cosine and sine are read from two tables each 256 

words long. 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%« 
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include 



quates 



public cosine_table , sine_table 

public send_tones , f req , dial , f req_sum, tone_int 

public f req2 , f re<Lsum2 , dtmf_int , dtmf 

extrn se t_aic_bands : near , init_dma : near 
extrn se tup_sample_cnt : near , init_timer : near 
extrn speaker_on : near , speaker_of f : near 
extrn on_hook : near , of f _hook : near 
extrn tx_dma_of f : near , nul_rout ine : near 
extrn window_flip : near ,tx_dma_on: near 

extrn tx_f lags : word, tx_vector : word 
extrn tx_in_p tr : word , tx_sample_segment : word 
extrn sample_count : word , tx_dma_alal6 : word 
extrn timer_10ms : word , recv_f lags : word 
extrn display_segment:word, tx_out_ptr:word 

extrn dial_menu:byte 
extrn processed: byte 



.data 

freq dw ? 

freq2 dw ? 

freq_sum dw ? 

freq_sum2 dw ? 

. code 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%% 

SENDJTONES PROC NEAR 

upon entry freq will hold the desired frequency to be sent 
push ax 

mov freq_sum,0 

or tx_flags,l ; high band 

call setup_sample_cnt 

mov tx_in_ptr,0 



IF board 

call set_aic_bands 

call init_dma 

pop ax 

call init_timer 

mov tx_vector, offset tone_int 
ELSE 

p p ax 
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ENDIF 



t n _loop: 
IF b ard 

5 test recv_flags,b5 

jnz end_tone 
ELSE 

call tone_int 
ENDIF 

10 mov ah,l 

int 16h 

jz tone_loop 

mov ah , 0 
15 int 16h 

IF board 
end_tone: 

call tx_dma_off 

mov tx_vector, offset nul_routine 
20 ENDIF 
ret 

SENDJTONES ENDP 
» 

25 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

T0NE_INT PROC NEAR 

IF board 

30 call tx_buf_cnt 

jc do_tone 
ret 
ELSE 

mov ax , tx_in_jptr 

35 sub ax, tx_out_ptr 

jns no_rollover 

add ax,buf_len 
no_rollover: 

shr ax,l 

40 cmp ax, 16 

j 1 do_tone 
ret 
ENDIF 
do_tone : 

*5 mov processed, Of fh 

mov es , tx_sample_segment 

mov di,tx_in_ptr 

mov cx,16 ; lo p counter 

50 mov dx,0fffch 
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sample_l op: 

mov bx,freq_sum 
add bx.freq 
mov freq_sum,bx 
5 mov bl,bh 

xor bh.bh 
sal bx,l 

mov ax,cosine_table[bx] 
sar ax 9 l 
10 and ax,dx 

stosv 

loop sample_loop 

cmp di,buf_len 

15 jne save_ptr 

xor di,di 
save_ptr: 

mov tx_in_p t r , di 

20 IF board 

; enable DMA channel 1 ' 
call tx_dma_on 
END IF 

25 ret 

TONE_INT ENDP 

* 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
30 ; 

DTMF PROC NEAR 

; BX contains the digit to send 

; AX contains the time to send the tone in 10ms counts 
; This routine will abort if a key is hit and Carry will be set 
35 push ax 

sal bx,l 

mov ax,low_table[bx] 
mov f req , ax 
mov ax,high_table[bx] 
40 mov freq2,ax 

mov freq_ sum,0 
mov freq_sum2,0 

or tx_flags,l ; high band 

45 call setup_sample_cnt 

mov tx_in_ptr,0 

IF board 
50 call set aic bands 
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call init_dma 

POP ax ; get the timer value 

call init_timer 

mov tx_vector, offset dtmf_int 
ENDIF 





wait_loop : 






test 


recv_flags t b5 




jnz 


timed out 


10 


IFE board 




call 


dtmf_int 




ENDIF 






mov 


ah,l 




int 


16h 


15 


jz 


wait_loop 




mov 


ah,0 




int 


16h 




stc 




20 


jmp 


short dtmf_dqne 




timed_out : 






clc 





dtmf_done : 
25 IF board 

call tx_dma_off 

mov tx_vector,offset nul_routine ; turn off the tone 



ENDIF 
ret 

30 . data 

lowtable dw 1941 ; 0 

.dw 1697 ; 1 

dw 1697 ; 2 

dw 1697 ; 3 

35 dw 1770 ; 4 

dw 1770 ; 5 

dw 1770 ; 6 

dw 1852 ; 7 

dw 1852 ; 8 

40 dw 1852 ; 9 

dw 1941 ; # 

dw 1941 ; * 

dw 1697 ; a 

dw 1770 ; b 

45 dw 1852 ; c 

dw 1941 ; d 

hightable dw hl336 ; 0 

dw hl209 ; 1 

50 dw hl336 ; 2 
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dv 


hl477 


; 3 


dv 


hl209 


; 4 


dv 


hl336 


; 5 


dv 


hl477 


; 6 


dv 


hl209 


; 7 


dv 


hl336 ; 


; 8 


dv 


H1477 


9 


dv 


hl477 ; 


# 


dv 


hl209 ; 


* 


dv 


hl663 ; 


a 


dv 


hl663 ; 


b 


dv 


hl663 ; 


c 


dv 


hl663 ; 


d 



DTMF ENDP 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



.code 
DTMF INT 



PROC NEAR 



IF board 

call tx_buf_cnt 
do dtmf 



ret 
do_dtmf : 
ENDIF 
mov 

mov 
mov 
mov 

dtmf _loop : 
mov 
add 
mov 
mov 
xor 
sal 
mov 
sar 
mov 
add 
mov 
mov 
xor 
sal 
m v 
sar 



processed, Of fh 

es , tx_sample_segment 
di , tx_in_ptr 

cx,16 ; loop counter 



bx, freq_sum 

bx , f req 

freq_sum,bx 

bl.bh 

bh,bh 

bx.l 

dx , co s ine_t ab le [ bx ] 

dx,l ; 1/2 

bx , f req_sum2 

bx f f req2 

freq_siam2,bx 

bl,bh 

bh,bh 

bx f l 

ax , cos ine_table [ bx ] 
ax f l ; 1/2 
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add 


ax,dx 




and 


ax.Offfch 




stosv 




loop 


dtmf_loop 


5 








cmp 


di,buf_len 




jne 


save inj>tr 




xor 


di,di 




save_in_ptr 




10 


mov 


tx_in_ptr , di 




IF board 






; enable DMA channel 1 




call 


tx_dma_on 


15 


ENDIF 






ret 






DTMF_INT 


ENDP 


20 








;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%< 




TX BUF CNT 


PROC NEAR 


25 


IF board 






mov 


dx.wr clr byte_ptr 




out 


dx.al 




jmp 


$+2 


30 


mov 


dx , dma_5_addr ess 




in 


al.dx 




mov 


cl.al 




jmp 


$+2 




in 


al.dx 


35 


mov 


ch.al 




jmp 


$+2 




; check for 


low byte roll over 




mov 


dx.wr clr byte ptr 


40 


out 


dx.al 




jmp 


$+2 




mov 


dx , dma_5_address 




in 


al.dx 


45 


cmp 


al.cl 




je 


no roll 




mov 


cl.al 




jmp 


$+2 




in 


al.dx 


50 


m v 


ch.al 



init flag to low byte 



init flag to low byte 
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jmp $+2 
no r 11: 



m v ax,tx_in_ptr ; calculate the tx buffer address 

5 shr ax,l ; word address 

add ax , tx_dma_alal6 
sub ax.cx 
jns pos_diff 
add ax,( buflen / 2 ) 
10 pos_diff: 

cmp ax, sample_count 

jl do_buf 

clc 

ret 

15 do_buf: 

stc 
ret 
ENDIF 

20 TX_BUF_CNT ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%% 

.data 

25 cosine_table dw 32767,32757,32728,32678,32609,32521 

dw 32412,32285,32137,31971,31785 
dw 31580,31356,31113,30852,30571 
dw 30273,29956,29621,29268,28898 
dw 28510,28105,27683,27245,26790 

30 dw 26319,25832,25329,24811,24279 

dw 23731,23170,22594,22005,21403 
dw 20787,20159,19519,18868,18204 
dw 17530,16846,16151,15446,14732 
dw 14010,13279,12539,11793,11039 

35 dw 10278,9512,8739,7962,7179 

dw 6393,5602,4808,4011,3212 
dw 2410,1608,804,0,-803 
dw -1607,-2410,-3211,-4010,-4807 
dw -5601,-6392,-7179,-7961,-8739 

40 dw -9511,-10278,-11038,-11792,-12539 

dw - 13278 , - 14009 , - 14732 , - 15446 , - 16150 
dw -16845,-17530,-18204,-18867,-19519 
dw -20159,-20787,-21402,-22005,-22594 
dw -23169,-23731,-24278,-24811,-25329 

45 dw -25832,-26319,-26790,-27245,-27683 

dw -28105,-28510,-28898 , -29268,-29621 
dw -29956,-30273,-30571,-30852,-31113 
dw -31356,-31580,-31785,-31971,-32137 
dw -32285,-32412,-32521,-32609,-32678 

50 dw -32728,-32757,-32767,-32757,-32728 
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dw -32678,-32609 , -32521,-32412,-32285 

dw -32137,-31971,-31785,-31580,-31356 

dw -31113,-30852,-30571,-30273,-29956 

dw -29621,-29268,-28898,-28510,-28105 

5 dw -27683,-27245,-26790,-26319,-25832 

dw -25329 , -24811 , -24278 , -23731 , -23169 

dw -22594,-22005,-21402,-20787,-20159 

dw -19519,-18867 , -18204,-17530,-16845 

dw -16150,-15446,-14732,-14009,-13278 

10 dw -12539,-11792,-11038,-10278,-9511 

dw -8739,-7961,-7179,-6392,-5601 

dw -4807,-4010,-3211,-2410,-1607 

dw -803,0,804,1608,2410 

dw 3212,4011,4808,5602,6393 

15 dw 7179,7962,8739,9512,10278 

dw 11039,11793,12539,13279,14010 

dw 14732,15446,16151,16846,17530 

dw 18204,18868,19519,20159,20787 

dw 21403 , 22005 , 22594 , 23170 , 23731 

20 dw 24279,24811,25329,25832,26319 

dw 26790 ,27245 , 27683 , 28105 , 28510 

dw 28898,29268,29621,29956,30273 

dw 30571,30852,31113,31356,31580 

dw 31785,31971,32137,32285,32412 

25 dw 32521,32609,32678,32728,32757 

sine_table dw 0,804,1608,2410,3212,4011 

dw 4808,5602,6393,7179,7962 

dw 8739,9512,10278,11039,11793 

30 dw 12539,13279,14010,14732,15446 

dw 16151,16846,17530,18204,18868 

dw 19519,20159,20787,21403,22005 

dw 22594,23170,23731,24279,24811 

dw 25329,25832,26319,26790,27245 

35 dw 27683,28105,28510,28898,29268 

dw 29621,29956,30273,30571,30852 

dw 31113,31356,31580,31785,31971 

dw 32137,32285,32412,32521,32609 

dw 32678,32728,32757,32767,32757 

W dw 32728,32678,32609,32521,32412 

dw 32285,32137,31971,31785,31580 

dw 31356,31113,30852,30571,30273 

dw 29956,29621,29268,28898,28510 

dw 28105,27683,27245,26790,26319 

45 dw 25832,25329,24811,24279,23731 

dw 23170,22594,22005,21403,20787 

dw 20159,19519,18868,18204,17530 

dw 16846,16151,15446,14732,14010 

dw 13279 , 12539 , 11793 , 11039 , 10278 

50 dw 9512,8739,7962,7179,6393 
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10 



15 



20 



25 



30 



35 



40 



dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 
dw 



5602 , 480a, 4011 , 3212 , 2410 
1608,804,0,-803,-1607 
-2410,-3211, -4010,-4807,-5601 
-6392,-7179,-7961,-8739,-9511 
-10278 , -11038 , -11792 , -12539 , -13278 



-14009,-14732 
-17530,-18204 
-20787,-21402 
-23731,-24278 
-26319,-26790 
-28510,-28898 
-30273,-30571 
-31580,-31785 
-32412,-32521 
-32757,-32767 
-32609,-32521 
-31971,-31785 
-30852,-30571 
-29268,-28898 
-27245,-26790 
-24811,-24278 
-22005,-21402 
-18867,-18204 
-15446,-14732 
-11792,-11038 



-15446,-16150,-16845 
-18867,-19519,-20159 
-22005,-22594,-23169 
-24811,-25329,-25832 
-27245,-27683,-28105 
-29268,-29621,-29956 
-30852,-31113,-31356 
-31971,-32137,-32285 
-32609,-32678,-32728 
-32757,-32728,-32678 
-32412,-32285,-32137 
-31580,-31356,-31113 
-30273,-29956,-29621 
-28510,-28105,-27683 
-26319,-25832,-25329 
-23731,-23169,-22594 
-20787,-20159,-19519 
-17530,-16845,-16150 
-14009,-13278,-12539 
10278,-9511,-8739 



-7961,-7179,-6392,-5601,-4807 
-4010,-3211,-2410,-1607,-803 



;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
.code 

DIAL PROC NEAR 
. data 

dial_buffer db 41 dup(?) 
buffer_po inter dw ? 

. code 

lea si t dial_menu 
call window_flip 

; position the cursor 



45 



mov 
xor 
mov 
mov 
int 



ah,02h 

bh.bh 

dh,8 

dl,31 

lOh 



50 



mov es , display_segment 

mov dl,((( 8 * 80 ) + 31 ) * 2 ) 

xor bx,bx 
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key_loop : 

mov ah,0 

int 16h 

mov cl,al ; for printing 

cmp al , cr 

je dial_string_done 

cmp al,bs 

j ne no_backspace 

cmp bx , 0 

j e key_loop 

mov al , ' ' 

sub di,2 

mov es:[di] f al 

dec dl 

mov ah,02h 

int lOh 

dec bx ' 

jmp short key_loop 



no_backspace : 



cmp 


al, '0' 




jb 


not digit 




cmp 


al,'9' 




ja 


not_digit 




sub 


al, '0' 




jmp 


short buffer^ 


_ insert 


not_digit: 






cmp 


al f '#' 




jne 


chk_star 




mov 


al,0ah 




jmp 


short buffer_ 


insert 


chk_star: 






cmp 


al, '*' 




jne 


chk letter 




mov 


al,0bh 




jmp 


short buffer^ 


insert 


chk_letter: 






cmp 


al,'A' 




jb 


key_loop 




cmp 


al, 7 D' 




ja 


chk_lower 




sub 


al,'A'- Och 




jmp 


short buff r_ 


insert 
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chk_l wer: 

cmp al , 9 a ' 

jb key_lo p 

cmp al, 'd' 

5 j a key_loop 

sub al, 'a' - Och 

buffe reinsert: 

cmp bx , 40 

10 j e key_loop 

mov dial_buf f er [bx] , al 





inc 


bx 


15 


mov 


al.cl 




stosb 






inc 


di 




; move the < 


cursor 


20 


mov 


ah,02h 




inc 


dl 




int 


lOh 




; cmp 


bx,40 


25 


; jne 


key_loop 




; dec 


bx 




; dec 


dl 




; int 


lOh 


30 


; sub 


di,2 






key_loop 



35 



; print the character to the screen 



dial_string_dohe : 

mov dial_buf f er [bx ] , Of fh 



IF board 

call offjiook 

call speaker_on 

mov ax, 2 * 100 ; 2 sec. 

40 call init_timer 

of f_hook_wait : 

test recv_flags,b5 

jz off_hook_wait 

45 

mov buf f er_pointer , 0 
dial_loop : 

mov bx , buf f e r_po in t e r 

mov bl , dial_buf f er [bx ] 

50 inc buffer_pointer 
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cmp bl.Offh 

j e dial_done 

mov ax, 7 ; 70 ms 

call dtmf 

j c dial_done 

mov ax, 7 ; 70 ms 

call init_timer 

inter_digit_wait : 

test recv_flags,b5 
jz inter_digit_vait 

jmp short dial_loop 

dial_done: 
ENDIF 

; clear out the input line 

mov es , display_segment 

mov di,((( 8 * 80 ) + 30 ) * 2 ) 

mov al , 9 ' 

mov cx,41 

clear_loop : 
stosb 
inc di 

loop clear_loop 

lea si,dial_menu 
call window_flip 



; hide 



t the 


cursor 


mov 


ah,02h 


xor 


bh,bh 


mov 


dh,25 


mov 


dl,0 


int 


lOh 


ret 





DIAL ENDP 
END 

•model small 
.286 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
; Callp Progress 

; This pr gram does all the call progress finctions. 

; It uses a 7200 Hz. receive sample to detect answer t ne, 
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busy, ringing, voice v and dial tone. 

This file also contains all the filter r utines. 



;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



10 



15 



include equates 

publ ic callp_main , touch_tone_de tec t 

public aic_cmdl , aic_cmd2 , init_callp , get_callp 

pub 1 ic ge t_t ouch_tone 

extrn ini t_aic : near , ini t_dma : near 

extm window_f lip : near f nul_rout ine : near 

extrn tone_int : near , get_tx_data : near 

extrn txl224 : near , init_tx : near f setup_sample_cnt : near 

extrn init_tx_dma : near , tx_dma_off : near 

extrn rx_dma_on : near ,rx_dma_off: near 

extrn dtmf intrnear 



20 extrn rx_sample_segment: word, rx_out: word 

extrn ini t_aic_tx48_rx72 : word , recv_f lags : word 
extrn recv_vec tor : word, rx_dma_alal6 : word 
extrn display_segment : word, freq: word, freq_sum:word 
extrn rx_in : word , tx_in_p tr : word , tx_out_p tr : word 

25 extrn recv_sample_count : word, timer_10ms: word 

extrn sreg : word , tx_f lags : word , tx_vector : word 
extrn freq2:word,freq_sum2:word 

extrn ttone_de tec t_win: byte 
30 extrn callp_win:byte 

extm timer_tic:byte, timer_re load: byte 

.data 

; ********* * *** ** *** DC NOTCH COEFF 
35 notchO_lscalar dw 7979h 

notchO lbl dw 7333h 



; ****************** CALL PROGRESS COEFF 

0db2h 





callp_lscalar 


dw < 


40 


callp lal 


dw 


-578fh 




callp lbl 


dw 


5db0h 




callp_lb2 


dw 


-4dd8h 




callp_2scalar 


dw 


45 


callp 2al 


dw 


4240h 




callp_2bl 


dw 


5b20h 




callp_2b2 


dw 


-6el8h 




comment 


! 





1333h 



50 



; ****** ************ VOICE COEFF 



1/2 



; 1/2 
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10 



voice lscalar 



voice_3scalar 
! 



dw- 



4873h 



voice_lal 


dv 


-6470h 


voice_lbl 


dv 


63f8h 


voice_lb2 


dv 


-43bah 


voice 2scalar 


dv 347bh 


voice_2al 


dv 


-7464h 


voice_2bl 


dv 


4ffch 


voice 2b2 


dv 


-72b6h 



dv 



49fch 



; 1/2 



1/2 



; 1/2 



; ****************** ANSWER TONE COEFF 
15 ans_tone_lscalar dv 251h 

ans_tone_lbl dv -6208h 

ans tone lb2 dv -7c28h 



20 



ans_tone_2scalar dv 10a4h 
ans_t one_2b 1 dv - 5 9b0h 

ans tone 2b2 dv -7c28h 



25 



TOUCH TONE DETECT COEFF 



hz697_770_lscalar dw lc29h 

hz697_770_lal dw -6fc3h 

hz697_770_lbl dw 67bfh 

hz697 770 lb2 dw -7b23h 



1/2 



1/2 



30 



hz697_770_2 scalar dw 3852h 

hz697_770_2al dw -Sbceh 

hz697_770_2bl dw 6184h 

hz697 770 2b2 dw -7b23h 



1/2 



1/2 



35 



hzl209_1336_lscalar dw 199ah 

hzl209_1336_lal dw -4db3h 

hzl209_1336_lbl dw 7df Oh 

hzl209 1336 lb2 dw -799ah 



I 1/2 



40 



hzl209_1336_2scalar dw 4148h 

hzl209_1336_2al dw -43e0h 

hzl209_1336_2bl dw 5f36h 

hzl209 1336 2b2 dw -799ah 



sample dw ? 

45 ; call progress delay line variables 
notch0_10 dw ? 
notch0_ll dw ? 
notchO 21 dw ? 



50 



comment 



! 
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voice ix uw 


9 










voice xz uw 


9 










voice_zx aw 


9 

i 










voice zz uw 


9 






5 




voice_31 dw 


? 










voice_32 dw 


? 










voice 41 aw 


9 










voice **z uw 


9 










4 /«a SI Hu 

voicc_3i aw 


9 






1U 




1 












mqI 1 n 11 /1t»7 
Caiip 1 X UW 


* 










caxxp xz aw 


9 










a nl 1 n 01 /4u 

Cailp zx aw 


9 

t 










caiip_zz aw 


o 

f 










caiip_Ji aw 


o 

f 










caixp_jz aw 


I 










c a x ip^ 4 * 1 aw 


o 

f 










caiip^_*fz aw 


9 






on 
zU 
















ans tone xx aw 


* 0 
l 










ans_tone_i z aw 


o 

I 










ans_tone_21 dw 


? 










ans_tone_22 dw 


? 






ZD 




ans_tone_31 dw 


? 










ans_tone_32 dw 


? 










ans_tone_41 dw 


? 










ans_tone_42 dw 


? 






JU 




no_f ilter_sum_high 


aw 


9 






no_f ilter_sum_low 


dw 


9 






» 


voice_sum_high 




dw 


? 




f 


voice_sum_low 




dw 


? 






callp_suin_high 




dw 


9 


7S 




callp_sum_low 




dw 


9 

f 






ans_tone_sum_high dw 


9 








ans_tone_sum_low 


dw 


9 








old_no_filtJiigh 


dw 


9 

s 








old_no_f ilt_low 










t 


old_voice_high 




dw 






» 


old_voice_low 




dw 








old_callp_high 




UW 








old_callp_low 




J__ 

aw 




45 




old_atone_high 




dw 








old_atone_low 




dw 








sample_count 


dw 


? 








scount reload 


dw 


? 





50 



; Touch T ne detect variables 



hz69/_77U_ll 


aw 


? 


hz697 770 12 


dv 


? 


hz697 770 21 


dv 


? 


hz697 770 22 


dv 


? 


hz697 770 31 


dv 


? 


hz697~770 32 


dv 


? 


hz697 770 41 


dv 


? 


hz697 770 42 


dv 


? 



5 



10 

hzl209_1336_ll 
hzl209_1336_12 
hzl209_1336_21 
hzl209_1336_22 
15 hzl209_1336_31 
hzl209_1336_32 
hzl209_1336_41 
hzl209_1336_42 

20 fil697_sum_high 
fil697_sum_low 
old_fil697_high 
old_fil697_low 

25 



30 ascii_converter 

db 

aic_cmdl dw 
aic_cmd2 dw 

35 

.code 



dw 


? 




dw 


? 




dw 


? 




dw 


? 




dw 


? 




dw 


? 




dw 


? 




dw 


? 






dw 


? 




dw 


? 




dw 


? 




dw 


? 



? 
? 

db '0V1»,'2V3\'4\'5\'6V7\»8','9' 
'A','B*,'C\'D\'E','F' 

? 
? 



fill209_sum_high dw ? 
fill209_sum_low dw 

old_fill209_high dw ? 
old_fill209_low dw 



;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

40 CALLP_FI LTERS PROC NEAR 

call chk_sample_count 

jnc do_callp 

ret 

45 

end_atone_routine : 

; answer tone mean square 

mov ax.bx ; output * 2 

imul bx 

50 mov bx.dx ; DX:AX already divided by 2 
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and 


bx.Ofh 


; shift right by 4 to 




rn i 
roi 


bx,4 






sar 


dx,4 






shr 


ax, 4 




c . 

J 


Ui 


ah,bl 






Add 


ans_tone_sum_low , ax 




adc 


ans_tone_sum_hi gh , dx 




jmp 


count_it 




10 


do_callp: 








mov 


es , rx_sample_segment 




mov 


si,rx_out ; 


filter sample pointer 




f ilter_loop : 






mov 


ax,es:[si] ; 


input sample 


15 


add 


si, 2 






mov 


sample, ax 






test 


recv_flags,b8 






jnz 


answer_tone — filter 












; Remove any DC from the sample NOTCH 0 




mov 


bx,notch0 11 






neg 


bx 


; -i 




imul 


notchO lscalar 


25 


sal 


dx,l 






mov 


notchO_ll,dx 






add 


bx,dx 






mov 


ax,notch0_21 






imul 


notchO_lbl 






sal 


dx,l 






add 


bx,dx 






mov 


notch0_21,bx 






mov 


sample, bx 






; No filter 


averaging 






mov 


ax,bx ; 


output 2 




imul 


bx 






sal 


ax,l ; 


adjust for the multiply 




rcl 


dx,l 






mov 


al,ah ; 


divide by 256 




mov 


ah,dl 






mov 


dl,dh 






xor 


dh.dh ; 


result is positive 




add 


no_f i 1 ter_sum 


low , ax 


45 


adc 


no_f i lter_sum 


~high,dx 



; Answer tone filter 
answer_tone_filt r: 

mov bx , ans_ t one_l 2 
50 mov ax , ans_tone_ll 
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mov ans_tone_12 , ax . 

sar ax, 2 

neg ax 

add ax,ans_tone_ll ; .75 * ans_tone_ll 

sub bx,ax 

mov ax, sample 

imul ans_tone_lscalar 

sal dx,l 

mov ans_t one_l 1 f dx 

add bx 9 dx 

mov ax f ans_t one_2 2 

imul ans_tone_lb2 

sal dx,l 

add bx,dx 

mov ax , ans_t one_2 1 

mov ans_t one_2 2 , ax 

imul ans_tone_lbl 

sal dx,l 

add bx,dx 

mov ans_tone_21,bx ; output of the first filter stage 

mov ax 9 bx 

imul ans_tone_2scalar 

sal dx,l 

mov bx , ans_tone_3 2 

mov ax , ans_tone_3 1 

mov ans_tone_32,ax 

sar ax ,2 

add ax , ans_tone_3 1 

add bx , ax 

mov ans_tone_3 1 , dx 

add bx , dx 

mov ax f ans_tone_42 

imul ans_tone_2b2 

sal dx,l 

add bx,dx 

mov ax , ans_tone_41 

mov ans_tone_42 f ax 

imul ans_tone_2bl 

sal dx, 1 

add bx,dx ; second stage output BX - output 

mov ans_tone_41,bx 

test recv_flags,b8 

j z do_mean_square 

jmp end_atone_routine 
do_mean_square : 
; answer tone mean square 

mov ax.bx ; output A 2 

imul bx 



182 



sal 


ax , 1 


, aajust ror en multiply 


rcl 


dx 9 1 




mov 


al ,ah 


; divide by 256 


mov 


ah 9 dl 




mov 


dl.dh 




xor 


dh,dh 


; result is positive 


add 


ans tone 


sum low t ax 


adc 


ans_tone_sum_high , dx 


comment ! 





Voice filter 


mov 


bx,voice_12 


mov 


ax,voice_ll 


mov 


voice_12 t ax 


imul 


voice lal 


sal 


dx,2 


add 


bx,dx 


mov 


ax , sample 


imul 


voice Iscalar 


sal 


dx,l 


mov 


voice_ll , dx * 


add 


bx,dx 



mov 


ax,voice_22 


imul 


voice lb2 


sal 


dx,l 


add 


bx,dx 


mov 


ax,voice_21 


mov 


voice_22 , ax 


imul 


voice Ibl 


sal 


dx,l 


add 


bx,dx 


mov 


voice_21,bx 


mov 


ax,bx 


imul 


voice 2scalar 


sal 


dx.l 


mov 


bx,voice_32 


mov 


ax,voice_31 


mov 


voice_32,ax 


mov 


voice_31,dx 


add 


bx,dx 


imul 


voice_ 2al 


sal 


dx f 2 


add 


bx,dx 


mov 


ax f voice_42 


imul 


voice 2b2 


sal 


dx,l 


add 


bx,dx 



IsC stage output 



* 2 
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mov 


ax,voice_41 






mov 


voice_42 f ax 






imul 


voice_2bl 






sal 


dx,2 


» 


* 2 


add 


bx,dx 


• 
i 


2nd stage output 


mov 


voice_41,bx 






mov 


ax, bx 






imul 


voice 3scalar 






sal 


dx,2 


• 
» 


* 2 


mov 


ax,voice_51 






mov 


voice_51,dx 






sub 


dx.ax 




dx - output 



voice mean square 

mov ax t dx ; output A 2 

imul dx 

sal ax,l ; adjust for the multiply 

rcl dx,l 

mov al f ah divide by 256 

mov ah, dl 

mov dl , dh 

xor dh,dh ; result is positive 

add voice_sum_low , ax 

adc voice_sum_high,dx 
! 

Call Progress filter 

mov bx , callp_12 

mov ax,callp_ll 

mov callp_12,ax 

imul callp_lal 

sal dx,l 

add bx 9 dx 

mov ax, sample 

imul callp_lscalar 

sal dx,l 

mov callp_ll f dx 

add bx,dx 



mov ax , callp_22 

imul callp_lb2 

sal dx,l 

add bx , dx 

mov ax f callp_21 

mov callp_22 f ax 

imul callp_lbl 

sal dx,2 

add bx , dx 

mov callp_21,bx ; 1st stage utput 
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mov 


ax,bx 


imul 


callp_2 scalar 


sal 


dx,l ~ 


mov 


bx,callp_32 


mov 


ax, callp_31 


mov 


ma] In Xv q v 


mov 


callp_31, dx 


add 


bx f dx 


imul 


callp 2al 


sal 


dx.l 


add 


bx, dx 


mov 


ax, callp 42 


imul 


callp 2b2 


sal 


dx,l 


add 


bx,dx 


mov 


ax,callp_41 


mov 


callp 42, ax 


imul 


callp 2bl 


sal 


dx,2 


add 


bx,dx 


mov 


callp_41,bx 



; BX - output 

call progress mean square 

mov ax,bx ; output * 2 

imul bx 

sal ax,l ; adjust for the multiply 

rcl dx,l 

mov al,ah ; divide by 256 

mov ah , dl 

mov dl , dh 

xor dh.dh ; result is positive 

add callp_sum_low l ax 

adc callp_sum_high f dx 



count_it: 

dec sample_count 

jnz check_samples 

or recv_f lags , b7 

mov ax , scount_reload 

mov sample_count , ax 

xor dx, dx 

mov ax , no_f il ter_sum_low 

m v bx,no_filter_sum_high 

mov old_no_f ilt_low , ax 

mov old_n _filt_high,bx 
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mov no_f ilter_sum_low , dx 

mov no_f il ter_sum_high , dx 

comment ! 

5 mov ax , voice_sum_low 

mov bx , voice_sum_high 

mov old_voice_low,ax 

mov old_vo ice_high , bx 

mov voice_sum_low , dx 

10 mov voice_sum_high,dx 

! 





mov 


ax , callp_sum_low 




mov 


bx , callp_sum_high 


15 


mov 


old_callp_low t ax 




mov 


old_callp_high ,bx 




mov 


callp_sum_low , dx 




mov 


callp_sum_high , dx 


20 


mov 


ax f ans_tone_sum_low 




mov 


bx ans_tone_stun_high 




mov 


old_atone_low , ax 




mov 


old_atone_high , bx 




mov 


ans_tone_sum_low t dx 


25 


mov 


ans_tone_sum_high , dx 




check_sampl 


as : 




cmp 


si f rx_samples_length 




jne 


nonwrap 


30 


xor 


si, si 




nonwrap : 






dec 


cx 




jcxz 


no_samples 






filter_loop 


35 


no_samples: 






mov 


rx_out,si 




ret 





CALLP_FI LTERS ENDP 
40 ; 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

DTMFJTLTERS PROC NEAR 

45 call chk_s amp 1 e_c oun t 

jnc do_ttone 
ret 

do_ttone : 

50 m v es,rx_sample_segment 
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mov si,rx_out 
tton _f ilter_loop : 

mov ax.es: [si] 
add si ,2 

mov sample , ax 



filter sample pointer 
input sample 



10 



15 



20 



Remove any DC from the sample NOTCH 0 

mov bx f no t ch0_l 1 

neg bx ; -1 

imul notchO_lscalar 

sal dx,l 

mov notch0_ll , dx 

add bx , dx 

mov ax , no t ch0_21 

imul notch0_lbl 

sal dx,l 

add bx , dx 

mov no t ch0_2 1 , bx 

mov sample, bx 



No filter averaging 



25 



30 



35 



40 



45 



50 



mov 

imul 

sal 

rcl 

mov 

mov 

mov 

xor 

add 

adc 

; 697 - 770 
filter_697: 
mov 
mov 
mov 
imul 
sal 
add 
mov 
imul 
sal 
mov 
add 
mov 
imul 
sal 
add 



ax.bx 
bx 
ax, 1 
dx, 1 
al,ah 
ah,dl 
dl,dh 
dh.dh 



output 2 

adjust for the multiply 
divide by 256 

result is positive 



no_f ilter_sum_low, ax 
no_f ilter_sum_high ,dx 

Hz filter 

bx,hz697_770_12 

ax,hz697_770_ll 

hz697_770_12,ax 

hz697_770_lal 

dx,2 ; * 2 

bx,dx 

ax, sample 

hz697_770_lscalar 

dx,l 

hz697_770_ll,dx 
bx,dx 

ax,hz697_770_22 

hz697_770_lb2 

dx,l 

bx,dx 
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( • 



mov ax,hz697_770_21. 

mov hz697_770_22 , ax 

imul hz697_770_lbl 

sal dx,2 

add bx , dx 

mov hz697_770_21,bx 



* 2 



output of the first filter stage 



10 



15 



20 



25 



30 



35 



40 



mov 

imul 

sal 

mov 

mov 

mov 

add 

mov 

imul 

sal 

add 

mov 

imul 

sal 

add 

mov 

mov 

imul 

sal 

add 

mov 

fil 697 - 
mov 
imul 
sal 
rcl 
mov 
mov 
mov 
xor 
add 
adc 



ax.bx 

hz697_770_2scalar 
dx.l 

bx,hz697_770_32 
ax,hz697_770_31 
hz697_770_32,ax 
bx.dx 

hz697_770_31,dx 

hz697_770_2al 

dx,2 

bx.dx 

ax,hz697_770_42 

hz697_770_2b2 

dx,l 

bx.dx 

ax,hz697_770_41 

hz697_770_42,ax 

hz697_770_2bl 

dx,2 

bx.dx 

hz697_770_41,bx 



shift the delay line 



store the input * scalar 



* 2 



* 2 



second stage output BX - output 



770 mean square 

ax.bx ; output A 2 

bx 

ax,l ; adjust for the multiply 

dx.l 

al.ah ; divide by 256 

ah.dl 

dl.dh 

dh.dh ; result is positive 

f il697_sum_low , ax 
fil697_sum_high,dx 



45 



50 



; 1209 - 1336 Hz filter 
f ilter_1209 : 

mov 

mov 

mov 

imul 

sal 

add 



bx,hzl209_1336_12 
ax,hzl209_1336_ll 
hzl209_1336_12,ax 
hzl209_1336_lal 
dx,2 ; * 2 

bx.dx 
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mov 

imul 

sal 

mov 

add 

mov 

imul 

sal 

add 

mov 

mov 

imul 

sal 

add 

mov 

mov 

imul 

sal 

mov 

mov 

mov 

mov 

add 

imul 

sal 

add 

mov 

imul 

sal 

add 

mov 

mov 

imul 

sal 

add 

mov 

fil 1209 
mov 
imul 
sal 
rcl 
mov 
mov 
mov 
xor 
add 
adc 



ax, sample 

hzl209 1336_lscalar 
dx f l 

hzl209_1336_ll,dx 
bx.dx ~ 

ax t hzl209_1336_22 
hzl209 1336_lb2 
dx,l 
bx,dx 

ax,hzl209_1336_21 

hzl209 1336_22,ax 

hzl209~1336_lbl 

dx,l 

bx,dx 

hzl209_1336_21,bx 
ax,bx 

hzl209_1336_2scalar 
dx.l 

bx,hzl209_1336_32 
ax,hzl209_1336_31 
hzl209_1336_32,ax 
hzl209_1336_31,dx 
bx.dx 

hzl209_1336_2al 

dx.l 

bx,dx 

ax,hzl209_1336_42 

hzl209_1336_2b2 

dx.l 

bx,dx 

ax,hzl209_1336_41 

hzl209_1336_42,ax 

hzl209_1336_2bl 

dx,l 

bx.dx 

hzl209_1336_41,bx 



output of the first filter stage 



shift the delay line 
store the input * scalar 



second stage output BX - output 



• 1336 mean square 
ax v bx ; output A 2 

bx 

ax,l ; adjust for the multiply 

dx.l 

al,ah ; divide by 256 

ah.dl 

dl.dh 

dh,dh ; result is p sitive 

f ill209_sum_low , ax 
f ill209_sum_high , dx 
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c unt_sample: 

dec sample_count 
jnz check_sample_buf 
or recv_f lags , b7 

mov ax , scount_r eload 
mov sample_count , ax 



10 



15 



20 



xor dx,dx 

mov ax , no_f il ter_sum_low 

mov bx , no_f ilter_sum_high 

mov old_no_f il t_low , ax 

mov old_no_f ilt_high , bx 

mov no_f il ter_sum_low , dx 

mov no_f ilter_sum_high , dx 

mov ax, f il697_sum_low 

mov bx , f i 1 6 9 7_ sum_hi gh 

mov old_f il697_lpw , ax 

mov old_fil697_high,bx 

mov f il697_sum_low , dx 

mov f il697_sum_high , dx 



25 



30 



mov ax , f ill209_sum_low 

mov bx f f ill209_sum_high 

mov old_fill209_low,ax 

mov old_fill209_high,bx 

mov f ill209_sum_low , dx 

mov f ill209_sum_high f dx 



check_sample_buf : 

cmp si , rx_samples_length 

jne no_end 
35 xor si, si 

no_end : 

dec cx 

jcxz no_more_samples 
j mp t tone_f il ter_loop 
40 no_more_samples : 

mov rx_out,si 
ret 



45 



DTMF_FILTERS ENDP 

* 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
CALLP_INIT PROC NEAR 
50 IF board 
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10 



15 



25 



lea si,init_aic_tx48_rx72 ; tx 4800 rx 7200 

call init_aic 

call init_dma 
ELSE 

xor ax, ax 

mov tx_injptr , ax 

mov tx_out_ptr , ax 

mov rx_in,ax 
END IF 



mov rx_out,0 
mov sample_count , 256 
mov scount_reload ,256 
ret 

CALLP_INIT ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

20 CALLP_MAIN PROC NEAR 
.data 

atonement dw ? 

.code 

call callp_init 



lea si,callp_win 
call window_flip 



IF board 

30 mov ax,sreg+9 

mov atone_cnt , ax 

mov ax sreg+7 

mov bx , 50 

35 mul bx 
cli 

mov timer_10ms , ax 

mov timer_tic f 9 

mov timer_reload , 9 

40 and recv_f lags, NOT ( b5 OR b7 OR b8 ) 

mov recv_vector, offset callp_f liters 
stl 

; enable DMA channel 2 RECV DMA 

45 call rx_dma_on 
ELSE 

mov recv_sample_count , 16 

mov freq, 20252 ; 2225 Hz at a 7200 Hz sample rate 

; m v freq ,3231 ; 1210 

50 mov freq_sum,0 
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ENDIF 





callp loop: 






IFE 


board 


5 


mov 


cx f 20000 




here: 






loop 


here 




call 


tone_int 




call 


tret tx data 


10 


call 


callp_filters 




FT ^F 






test 


recv_flags,b5 




jnz 


callp_exit 




ENDIF 




15 


test 


recv_flags,b7 






callp_loop 




and 


recv_f lags, NOT b7 


20 


IF board 






; check the 


thresholds ' 




cmp 


old_atone_high , 0 




jne 


got_atone 




cmp 


old_atone_low , 4000h 


25 


jb 


no_atone 




got_atone : 






; is ans_tone > no_filt/4 ? 




mov 


ax , old_no_f ilt_high 




mov 


bx , old_no_f il t_low 


30 


sar 


ax,l 




rcr 


bx,l 




sar 


ax, 1 




rcr 


bx,l 




cmp 


old_atone_high , ax 


35 


ji 


no_atone 




jg 


got_it 




cmp 


old_atone_low , bx 




jb 


no_atone 




got_it: 




40 


dec 


atonement 




jz 


get_end_atone 




jmp 


short display_levels 




no_atone : 






mov 


ax f sreg+9 


45 


mov 


atone cnt,ax 




display_levels : 




ENDIF 






call 


print_callp 


50 


mov 


ah,l 



high parts are equal 



int 16h 

jz callp_loop 



mov 
int 



ah,0 
16h 



10 



15 



callp_exit: 
lea 
call 



si t callp_win 
window_flip 



call_exit: 

IF board 
; disable DMA channel 2 RECV DMA 
call rx_dma_off 

mov recv_vector .offset nul_routine 
ENDIF 



20 



stc 
ret 

IF board 
get_end_atone : 





; look for 


4.44 ms samples 




cli 




25 


mov 


sample_count , 32 




mov 


scount_reload, 32 




mov 


ans_tone_sum_low 1 0 




mov 


ans_tone_sum_high f 0 




or 


recv_flags t b8 ; end of answer tone 


30 


sti 






mov 


atonement, 17 ; this is the success flag 




mov 


ax , old_atone_low 




mov 


bx,old atone high 


35 


sar 


bx,l 




rcr 


ax, 1 




sar 


bx,l 




rcr 


ax,l ; BX,AX holds end answer tone threshold 


40 


push 


ax 




push 


bx 




lea 


si,callp_win 




call 


window_flip 


45 








call 


init_tx_dma 




and 


tx_flags,0fffeh ; tx low 




call 


lnit_tx 


50 


mov 


tx_vector,offset txl224 ; start the transmitter 
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pop bx 
pop ax 





end atone_loop: 


5 


test 


recv_flags f b5 




jnz 


callp_exit 




test 


recv_flags,b7 




jz 


end_atone_loop 


10 


and 


recv_f lags, NOT b7 




mov 


dx f old_atone_high 




mov 


cx , old_atone_low 




sub 


cx,ax 




sbb 


dx,bx 


15 


js 


got_end 




push 


ax 




mov 


ah,l 




int 


16h 


20 


pop 


ax 




jz 


erid_atone_10op 




mov 


ah,0 




int 


16h 



25 

mov tx_yector f offset nul_routine 

call tx_dma_off 

jmp call_exit 

30 

got_end: 

; disable DMA channel 2 RECV DMA 

call rx_dma_o f f 

mov recv_vector f offset nul_routine 

35 

mov aic_cmdl , 3 8 3 ch 

mov aic_cmd2, 3c72h 

or tx_flags,b8 

40 waitl: 

test tx_flags,b8 

jnz waitl 

wait2 : 

45 test tx_flags,b9 

jnz wait2 

clc 
ret 

50 
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10 



15 



20 



ENDIF 
CALLP_MAIN ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

PRINT_WORD PROC NEAR 

; upon entry DI - screen offset, CL - attribute, and DX - word to print 



mov 


bl.dh 


ror 


bl,4 


and 


bl.Ofh 


xor 


bh.bh 


mov 


al t byte 


stosv 




mov 


bl,dh 


and 


bl.Ofh 


mov 


al,byte 


stosv 




mov 


bl,dl 


ror 


bl,4 


and 


bl.Ofh 


mov 


al,byte 


stosw 




mov 


bl.dl 


and 


bl,0fh 


mov 


al.byte 


stosw 




ret 





25 



PRINT_WORD ENDP 

30 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

PRINT_CALLP PROC NEAR 

35 ; print the result in the callp progress window 

mov di,(((9*80)+47)*2) ; screen offset 

xor bx,bx 

mov es , display_segment 

mov ah,31h ^attribute 

40 mov dx f old_no_filt_high 

call print_word 

mov dx,old_no_filt_low 

call print_word 

45 mov di f ((( 10 * 80 ) + 47 ) * 2 ) 

mov dx , old_callp_high 

call print_word 

m v dx t old_callp_l w 

call print word 

50 
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comment 
mov 
mov 
call 
mov 
call 
! 



! 

di,((( 9 * 80 ) + 44 ) * 2 ) 
dx , old_voice_high 
print_word 
dx , old_voice_low 
print_word 



10 



mov 

mov 

call 

mov 

call 

ret 



di,((( 11 * 80 ) + 47 ) * 2 ) 

dx , old_atone_high 

print_word 

dx , old_atone_low 

print_word 



15 



20 



PRINT_CALLP ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

TOUCH JTONE_DETECT PROC NEAR 

lea si, ttone_detect_win 
call window_flip 



25 


call 


s e tup_d tmf _de t e c t 




; main loop 






ttone_detect_loop : 




IFE board 


30 


mov 


cx, 40000 




here2 : 






loop 


here2 




call 


dtmf_int 




call 


get_tx_data 


35 


call 


dtmf_filters 




ENDIF 






test 


recv_flags ,b7 






ttone_detect_loop 


40 


and 


recv_f lags, NOT b7 




call 


print_dtmf 




mov 


ah,l 


45 


int 


16h 




jz 


ttone_detect_loop 




mov 


ah,0 




Int 


16h 



50 
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lea si f ttone_detect._win 
call window_flip 



10 



15 



20 



25 



30 



35 



40 



45 



IF board 
; disable DMA channel 2 RECV DMA 
call rx_dma_off 

mov recv_vector, offset nul_routine 
ENDIF 
stc 
ret 

TOUCH TONE DETECT ENDP 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



PRINT DTMF PROC NEAR 



print the result in the callp progress window 



mov 

xor 

mov 

mov 

mov 

call 

mov 

call 

mov 

xor 

mov 

mov 

mov 

call 

mov 

call 

mov 

xor 

mov 

mov 

mov 

call 

mov 

call 

ret 



di,((( 10 * 80 ) + 47 
bx,bx 

es , display_segment 
ah,31h 

dx , old_no_f ilt_high 

print_word 

dx , old_no_f il t_low 

print_word 



di,<(( 11 * 80 ) + 47 ) 
bx,bx 

es , display_segment 
ah,31h 

dx,old_fil697Jiigh 
print_word 
dx,old_fil697_low 
print_word 

di,((( 12 * 80 ) + 47 ) 
bx,bx 

es , display_segment 
ah,31h 

dx,old_fill209_high 
print_word 
dx,old_fill209_low 
print_word 



) * 2 ) ; screen offset 



attribute 



* 2 ) ; screen offset 



attribute 



* 2 ) ; screen offset 



attribute 



PRINT J)TMF ENDP 
50 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%«%%%%%%%%%%%%%% 
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CHK SAMPLE COUNT PROC NEAR 



IF board 

mov dx,wr_clr_byte_ptr 
out dx,al 
jmp $+2 



init flag to 1 w byte 



how many words are there in the receive buffer? 



10 


mov 


dx,dma_6_address ; get RX in 




in 


al.dx ~ 




mov 


cl,al 




jmp 


$+2 




in 


al.dx 


15 


mov 


ch,al 




jmp 


$+2 




mov 


dx,wr_clr_byte_ptr ; init 




out 


dx,al 


20 


jmp 


$+2 




mov 


• 

dx , dma_6_address 




in 


al,dx 




cmp 


cl,al 


25 


je 


read_ok 




mov 


cl,al 




in 


al,dx 




mov 


ch,al 




read_ok: 




30 


mov 


ax , rx_out 




snr 


ax, 1 




add 


ax , rx_dma_alal6 




sub 


cx,ax 




jns 


pos_diff 


35 


add 


cx, (rx_samples_length/2) 




pos_diff : 






jnz 


do_funct 




stc 






ret 




40 








ELSE 






mov 


cx,rx_in 




sub 


cx, rx_out 




jns 


no_rollover 


45 


add 


cx , rx_samples_length 




no_rollover: 




shr 


cx f l ; word count 




jnz 


do_funct 




stc 




50 


ret 
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init flag to low byte 



/ 



25 



ENDIF 
d _funct: 
clc 
ret 

CHK_SAMPLE_COUNT ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
10 INIT_CALLP PROC NEAR 
call callp_init 
cli 

15 and recv_f lags , NOT ( b5 OR b7 OR b8 ) 

mov recv_vector f offset callp_f liters 
sti 

; enable DMA channel 2 RECV DMA 
20 call rx_dma_on 

ret 

INIT CALLP ENDP 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
GET CALLP PROC NEAR 



answer_loop : 
30 test recv_flags ,b7 

j z answer_loop 

and recv_flags,N0T b7 

35 call print_callp 

xor al,al 

mov bx,old_callp_high 

cmp bx,0h 

40 je no_callp 

or al f l 
no_callp : 
ret 

45 GET_CALLP ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

SETUP_DTMF_DETECT PROC NEAR 
50 call callp_init 
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mov r cv_sampl _count,16 
IFE board 

mov freq,1697_72s 

; mov freq,0 

5 mov freq2,hl336_72s 

; mov freq2,0 

; mov f req , tone_2225_72s 

; mov freq2,tone_2225_72s-200 

mov freq_sum,0 

10 mov freq_sum2,0 

ELSE 
cli 

and recv_f lags, NOT ( b5 OR b7 OR b8 ) 

mov recv_yector, offset dtmf_f liters 
15 sti 

; enable DMA channel 2 RECV DMA 
call rx_dma_on 
ENDIF 

20 ret 

SETUP_DTMF_DETECT ENDP * 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
25 GET TOUCH TONE PROC NEAR 





call 


s e tup_d tmf _de tec t 




; main loop 




30 


detect_loop 






mov 


ah,l 




int 


16h 




jnz 


abort_out 




test 


recv_flags,b7 


35 




detect_loop 




and 


recv_f lags, NOT b7 




; check the 


thresholds 


40 


cmp 


old_f il697_high , lOOh 




ji 


detect_loop 




got_ttone: 






; is ans tone > no_filt/4 ? 


45 


mov 


ax, old_no_f ilt_high 




mov 


bx, old_no_f ilt_low 




sar 


ax, 1 




rcr 


bx,l 




sar 


ax, 1 


50 


rcr 


bx,l 
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cmp ld_fil697_high,ax 

jl detect_l op 
g t_697: 

cmp old_f ill209_high , ax 

5 jl detect_lo p 



end_loop : 



15 



mov 


ah,l 


int 


16h 


jnz 


abort_out 


test 


recv_flags,b7 


jz 


end_loop 


and 


recv_flags,NOT b7 


check the 


thresholds 


cmp 


old_f il697_high B lOOh 


jg 


end_loop 




short ok_end 



20 

abor t_out : 

mov ah,0 

int 16h 
ok_end : 
25 IF board 

; disable DMA channel 2 RECV DMA 

call rx_dma_off 

mov recv_vector f offset nul_routine 
ENDIF 
30 stc 
ret 

GET_T0UCH_TONE ENDP 
END 

35 

286 

model small 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
WIN is the pop -up window manager 

WIN uses window_init to decompress the windows into RAM. 
Window_flip and window_up actually print the desired window to the 
screen. 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
include equates 
50 public init_screen 
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10 



15 



40 



45 



public window_fLip 

public mainjnenu , s tar t_mes sage , end_message 

public dial_menu, nline_msg,window_up 

public outgo ingjnsg , recordingjasg , callp_win 

public ttone_detect_win 

extm display_segment : word 

extrn attribute: byte 

window macro corner_x,corner_y f x > y 

db corner_x , corner_y , x , y 
dw x*y dup (?) 



endm 

; definitions for the compress window macros 
20 .data 

corner dw '? 

include s f t_wins . inc 

25 . code 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
INIT_SCREEN PROC NEAR 

30 

mov al/l' 

mov ah , attribute 

call fill_screen 

35 lea si f top_menu 

call window_up 

lea si,bottom_jnenu 
call window_up 

ret 

INIT_SCREEN ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
FILL SCREEN PROC NEAR 



mov cx,2000 
50 mov es , display_segment 
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xor di 9 di 
rep stosv 
ret 



FILL SCREEN ENDP 



WINDOW FLIP PROC NEAR 



10 



mov bx,si 



calculate the offset Into the display 



15 



20 



25 



xor ax , ax 

mov al,[bx] 

mov cl,80 

imul cl 

mov cl,[bx+l] 

xor ch , ch 

add ax,cx 

shl ax , 1 

mov di v ax 

mov corner , ax 

mov ax f display_segment 

mov es,ax 



;( row + column) * 2 



30 



xor 
mov 
add 



cx,cx 

cl,[bx][2] 

si,4 



35 



40 



new_row: 

push cx 

mov cl t [bx][3] 
mov_loop : 

lodsw 

xchg ax,es:[di] 

mov ds: [si] [-2] f ax 

add di,2 

loop mov_loop 



; window rows 

; point to the window 



; columns 



45 



mov 
add 
mov 
mov 



pop 
loop 



ax , corner 
ax ,160 
di.ax 
corner , ax 

cx 

new row 



; add a line 



50 



ret 
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WINDOW_FLIP ENDP 



WINDOW UP PROC NEAR 



mov bx,si 



10 



calculate the offset into the display 



15 



20 



xor ax, ax 

mov al,[bx] 

mov cl , 80 

Imul cl 

mov cl,[bx+l] 

xor ch , ch 

add ax , cx 

shl ax , 1 

mov di , ax 

mov corner , ax 

mov ax , display_segment 

mov es.ax 



; ( row + column) * 2 



25 



xor cx,cx 
mov cl,[bx][2] 
add si ,4 



30 



35 



new_row2 : 
push 
mov 
mov_loop : 
lodsw 
xchg 
mov 
add 
loop 
rep 



cx 

cl.[bx][3] 



ax,es:[di] 

ds:[si][-2] t ax 

di,2 

mov^loop 
movsv 



; window rows 

; point to the window 



; columns 



40 



mov 
add 
mov 
mov 



ax, corner 
ax, 160 
di,ax 
corner f ax 



; add a line 



45 



pop cx 

loop new_row2 

ret 

WINDOW UP ENDP 



50 
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. data 

outfile db 'sft_wins.inc' ,0 

wind ws label byte 

; window macro format is : 

; input_str — label of compressed window 

; name — name that the application uses for the window 

; corner_x,y upper left corner 

; x,y rows and columns of the window 

topjoaenu label byte 

window top_menu_s tr , 9 top_menu ',0,0,1,80 

; format is w,x,y,z 

; w,x - row, column of the 

; upper left corner 

; y,z - row, column of window 

bottom_menu label byte 

window bo ttom_menu_s tr , 9 bottomjnenu ' , 24 , 0 , 1 , 80 

main_menu label byte 

window main_menu_str , 'main_menu' , 7 , 21 , 11 , 38 

start_message label byte 

window start_message_str , 9 startjnessage ',3,23,3,35 

end_message label byte 

window end_message_str , ' end_message ' , 3 , 23 , 3 , 34 

dial_menu label byte 

window dial_menu_s tr , ' dial_menu ',7,7,3,66 

onlinejmsg label byte 

window online_msg_s tr , ' onlinejmsg ' , 0 , 0 , 1 , 80 

outgoing_msg label byte 

window outgo ing_msg_str , 'outgoing_msg' , 7 , 25 , 3 , 27 

recording_msg label byte 

window recording_msg_str , 1 recording_msg # , 7 , 25 , 3 , 30 

callp_win label byte 

window callp_win_str, 'callp_win' ,8,24,5,33 

ttone_detect_win label byte 

window ttone_detect_str , 1 ttone_detect_win' , 9 , 24 , 5 , 33 

dw Offffh 

bottom_menu_str db attrib,05bh 

db 9 USRob tics Softmodem (c)1989 Pate 
db 'nt Pending By: R bert C. Suffern 
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db 



Offh 



top_menu_str 



db attrib,05bh 
db ' | Off Line j 8 bits | N Parity | 1 ' 
db 'Stop Bit | Auto Answer Mode --- Voice |' 
db Offh 



10 



online_msg_str 
" db 
db 
db 



db attrib,05bh 

' | On Line j 8 bits | No Parity | 1 
' Stop Bit | 1200 Baud Originate Mode | ' 
Offh 



main menu str 



db attrib.Olbh 





db 




=',cop yi 36,'=i]' 




15 


db 




Fl Data Mode ' .copy, 17, 9 \\ 9 






db 




F2 — Record a Message 






db 




F3 — Play Back a Message 






db 




F4 --- Send a Tone' , copy ,15, ' || 9 






db 




F5 — Dial a Number 


# 


20 


db 




F6 — Execute Call Progress 


# 




db 




F7 — Execute Touch-Tone Detect 


i 




db 




F8 — Execute Message List 


f 




db 




F10 -- Exit' , copy, 22, 9 \\ 9 






db 




t' |C opy,36,'=f ' 




25 


db 


Offh 






start message str 


db attrib.Olbh 






db 




=',copy,33,'=T]' 






db 


:i 


Hit a Key to Begin Recording || ' 




30 


db 




t' f copy,33,'=S' 






db 


Offh 





45 



50 



end_message_str db 



attrib , Olbh 





db 


•|f',copy,32,"n|' 


35 


db 


' Hit a Key to 




db 


,copy,32, 'J* 




db 


Offh 




dial menu str 


db attrib.Olbh 


40 


db 


'[F\copy,64,»=T|' 




db 


' Enter Phone 1 




db 


,li! ',copy,64,»=^» 




db 


Offh 



outgoing_msg_str db attrib.Olbh 
db '[f',copy.25,'=Ti' 
db 
db 



db 



Sending Your Message || ' 
•K copy,25,'=!l' 



Offh 
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recording_msg_str db . attrib.Olbh 
db »f,copy,28,'=ii» 
db 
db 
db 



Rec rding Your Message 
.copy, 28, '=9' 
Offh 



callp_win_str 
db 
db 
db 
db 
db 
db 



db attrib.Olbh 
'|f\ copy, 31, »=t|' 
' No Filter Level: 
' Call Progress Level: 
' I Answer Tone Level: 



,copy,31,'=S' 



Offh 



ttone detect str db 



attrib.Olbh 



db '|f',copy,31,'=T|' 

db ' No Filter: 

db ' 697-770 Hz Filter: 

db ' 1209-1336 Hz Filter: 

db , copy, 31, ' 

db Offh 



; Window output file 
. data 

topmenu db 00h,00h,01h,50h 

db 0b3h,5bh,20h,5bh,4fh,5bh,66h,5bh,66h,5bh 

db 20h , 5bh , 4ch , 5bh , 69h , 5bh , 6eh , 5bh , 65h, 5bh 

db 20h,5bh,0b3h,5bh,20h,5bh,38h,5bh,20h,5bh 

db 62h,5bh,69h,5bh,74h,5bh,73h,5bh,20h,5bh 

db 0b3h , 5bh , 20h , 5bh , 20h , 5bh , 20h , 5bh , 20h , 5bh 

db 4eh , Sbh , 6fh , 5bh , 20h , 5bh , 50h , 5bh , 61h , 5bh 

db 72h , 5bh , 69h , 5bh , 74h , 5bh , 79h , 5bh , 20h , 5bh 

db 20h , 5bh , 20h , 5bh , 0b3h , 5bh , 20h , 5bh , 31h , 5bh 

db 20h , 5bh , 53h , 5bh , 74h , 5bh , 6fh , 5bh , 70h , 5bh 

db 20h , 5bh , 42h , 5bh , 69h , 5bh , 74h , 5bh , 20h , 5bh 

db 0b3h , 5bh , 20h , 5bh , 41h , 5bh , 75h , 5bh , 74h , 5bh 

db 6fh , 5bh , 20h , 5bh , 41h , 5bh , 6eh , 5bh , 73h , 5bh 

db 77h , 5bh , 65h , 5bh , 72h , 5bh , 20h , 5bh , 4dh , 5bh 

db 6fh , 5bh , 64h , 5bh , 65h , 5bh , 20h , 5bh , 2dh , 5bh 

db 2dh,5bh,2dh,5bh,20h,5bh,56h,5bh,6fh,5bh 

db 69h , 5bh , 63h , 5bh , 65h , 5bh , 20h , 5bh , 0b3h , 5bh 



bottom_menu db 
db 
db 
db 
db 
db 



18h,00h,01h,50h 

20h , 5bh , 5 5h , 5bh , 5 3h , 5bh , 5 2h , 5bh , 6 fh , Sbh 
62h , 5bh , 6fh , 5bh , 74h , 5bh , 69h , 5bh , 63h , Sbh 
7 3h , 5bh , 20h , Sbh , 5 3h , 5bh , 6fh , 5bh , 6 6h , Sbh 
74h , Sbh , 6dh , Sbh , 6 fh , 5bh , 64h , 5bh , 6 5h , 5bh 
6dh , 5bh , 20h , Sbh , 28h , 5bh , 63h , 5bh , 29h , 5bh 
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db 31h , 5bh , 39h , 5bh , 38h , 5bh , 39h , 5bh , 20h , 5bh 

db 20h ( 5bh.20h.5bh,20h,5bh,20h f 5bh,20h,5bh 

db 20h , 5bh , 50h , 5bh , 6 lh , 5bh , 74h , 5bh , 6 5h , 5bh 

db 6eh , 5bh , 74h , 5bh , 20h , 5bh , 50h , 5bh , 6 5h , 5bh 

5 db 6eh,5bh,64h,5bh,69h,5bh,6eh,5bh,67h,5bh 

db 20h,5bh,20h,5bh,20h,5bh,20h,5bh,20h,5bh 

db 20h , 5bh , 20h , 5bh , 20h , 5bh , 42h , 5bh , 79h , 5bh 

db 3ah , 5bh , 20h , 5bh , 5 2h , 5bh , 6 fh , 5bh , 6 2h , 5bh 

db 65h , 5bh , 72h , 5bh , 74h , 5bh , 20h , 5bh , 43h , 5bh 

10 db 2eh,5bh,20h,5bh,53h f 5bh,75h,5bh f 66h.5bh 

db 66h,5bh,65h,5bh,72h,5bh,6eh,5bh,20h.5bh 

main_menu db 07h, 15h,0bh, 26h 

db 0c9h,lbh,0cdh,lbh,0cdh,lbh,0cdh,lbh.0cdh,lbh 

15 db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

20 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh, lbh, Ocdh, lbh, Obbh, lbh, Obah, lbh, 20h, lbh 

db 20h , lbh , 20h , lbh , 46h , lbh , 31h , lbh , 20h , lbh 

db 2dh,lbh,2dh,lbh,2dh,lbh,20h,lbh,44h,lbh 

db 61h,lbh,74h,lbh,61h,lbh,20h,lbh,4dh,lbh 

25 db 6fh,lbh,64h,lbh,65h,lbh,20h,lbh,20h,lbh 

db 20h , lbh , 20h , lbh , 2 Oh , lbh , 20h , lbh , 20h , lbh 

db 20h,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db Obah , lbh , Obah , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

30 db 46h,lbh,32h,lbh,20h,lbh,2dh,lbh,2dh,lbh 

db 2dh , lbh , 20h , lbh , 52h , lbh , 65h , lbh , 63h , lbh 

db 6fh , lbh , 72h , lbh , 64h , lbh , 20h , lbh , 61h , lbh 

db 20h , lbh , 4dh , lbh , 6 5h , lbh , 7 3h , lbh , 7 3h , lbh 

db 6 lh , lbh , 6 7h , lbh , 6 5h , lbh , 20h , lbh , 20h , lbh 

35 db 20h,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , Obah , lbh , Obah , lbh 

db 20h,lbh,20h,lbh,20h,lbh,46h,lbh,33h,lbh 

db 20h , lbh , 2dh , lbh , 2dh , lbh , 2dh , lbh , 20h , lbh 

db 50h , lbh , 6ch , lbh , 6 lh , lbh , 79h , lbh , 20h , lbh 

40 db 42h,lbh,61h,lbh,63h,lbh,6bh,lbh,20h,lbh 

db 61h , lbh , 20h , lbh , 4dh , lbh , 65h , lbh , 73h , lbh 

db 73h , lbh , 61h , lbh , 6 7h , lbh , 65h , lbh , 20h , lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh . 20h , lbh 

db 20h , lbh , Obah , lbh , Obah , lbh , 20h , lbh , 20h , lbh 

45 db 20h,lbh,46h,lbh,34h,lbh,20h,lbh,2dh,lbh 

db 2dh,lbh,2dh,lbh,20h,lbh,53h,lbh,65h.lbh 

db 6eh , lbh , 64h , lbh , 20h , lbh , 61h , lbh , 20h , lbh 

db 54h , lbh , 6fh , lbh , 6eh , lbh , 65h , lbh , 20h , lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

50 db 20h,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 
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db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , Obah , lbh 

db Obah , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 46h , lbh 

db 35h,lbh,20h,lbh,2dh,lbh,2dh,lbh,2dh,lbh 

db 20h , lbh , 44h , lbh , 69h , lbh , 6 lh , lbh , 6ch , lbh 

5 db 20h,lbh,61h,lbh,20h,lbh,4eh,lbh,75h,lbh 

db 6dh , lbh , 62h , lbh , 65h , lbh , 72h, lbh , 20h , lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db 20h , lbh , 20h , lbh , Obah , lbh , Obah , lbh , 20h , lbh 

10 db 20h,lbh,20h,lbh,46h,lbh,36h,lbh,20h,lbh 

db 2dh,lbh,2dh,lbh,2dh,lbh,20h,lbh,45h,lbh 

db 78h, lbh, 65h, lbh , 63h, lbh, 75h, lbh , 74h, lbh 

db 65h , lbh , 20h, lbh , 43h , lbh , 61h, lbh , 6ch , lbh 

db 6ch , lbh , 20h , lbh , 50h , lbh , 72h , lbh , 6fh , lbh 

15 db 67h,lbh,72h,lbh,65h,lbh,73h,lbh,73h,lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db Obah , lbh , Obah , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db 46h , lbh , 37h , lbh , 20h , lbh , 2dh , lbh , 2dh , lbh 

db 2dh , lbh , 20h , lbh , 45h , lbh , 78h , lbh , 65h , lbh 

20 db 63h,lbh,75h,lbh,74h,lbh,65h,lbh,20h,lbh 

db 54h,lbh,6fh,lbh,75h,lbh,€3h,lbh,68h,lbh 

db 2dh,lbh,54h,lbh,6fh,lbh,6eh,lbh,65h,lbh 

db 20h , lbh , 44h , lbh , 65h , lbh , 74h , lbh , 65h , lbh 

db 63h , lbh , 74h , lbh , 20h , lbh , Obah , lbh , Obah , lbh 

25 db 20h,lbh,20h,lbh,20h,lbh,46h,lbh,38h,lbh 

db 20h,lbh,2dh,lbh,2dh,lbh,2dh,lbh,20h,lbh 

db 45h,lbh,78h,lbh,65h,lbh,63h,lbh,75h,lbh 

db 74h , lbh , 6 5h , lbh , 20h , lbh , 4dh , lbh , 65h , lbh 

db 73h , lbh , 73h, lbh , 61h , lbh , 67h, lbh , 65h , lbh 

30 db 20h,lbh,4ch,lbh,69h,lbh,73h,lbh,74h,lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db 20h, lbh, Obah, lbh, Obah, lbh, 20h, lbh, 20h, lbh 

db 20h , lbh , 46h , lbh , 31h , lbh , 30h , lbh , 20h , lbh 

db 2dh,lbh,2dh,lbh,20h,lbh,45h,lbh,78h,lbh 

35 db 69h,lbh,74h,lbh,20h,lbh,20h,lbh,20h,lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , Obah , lbh 

40 db Oc8h , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

45 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh, lbh, Ocdh, lbh, Obch, lbh 

start_message db 03h,17h,03h,23h 

50 ~ db Oc9h, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 
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db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbb 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

5 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Obbh , lbh 

db Obah , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 48h , lbh 

db 69h,lbh,74h,lbh,20h,lbh,61h,lbh,20h,lbh 

db 4bh , lbh , 65h , lbh , 79h , lbh , 20h , lbh , 74h , lbh 

10 db 6fh,lbh,20h,lbh,42h,lbh,65h,lbh,67h,lbh 

db 69h , lbh , 6eh , lbh , 20h , lbh , 52h , lbh , 65h , lbh 

db 63h , lbh , 6fh , lbh , 72h , lbh , 64h , lbh , 69h , lbh 

db 6eh , lbh , 67h , lbh , 20h , lbh , 20h , lbh , Obah , lbh 

db Oc8h , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

15 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

20 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Obch, lbh 

endjnessage db O3h,17h,03h,22h 

db 0c9h, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

25 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Obbh , lbh , Obah , lbh 

30 db 20h,lbh,20h,lbh,20h,lbh,48h,lbh,69h,lbh 

db 74h , lbh . 20h , lbh , 61h , lbh , 20h , lbh , 4bh , lbh 

db 65h , lbh , 79h , lbh , 20h , lbh , 74h , lbh , 6fh , lbh 

db 20h , lbh , 53h , lbh , 74h , lbh , 6fh , lbh, 70h , lbh 

db 20h , lbh , 52h , lbh , 65h , lbh , 63h , lbh , 6fh , lbh 

35 db 72h,lbh,64h,lbh,69h,lbh,6eh,lbh,67h,lbh 

db 20h, lbh, 20h, lbh, Obah, lbh, 0c8h, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

40 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh, lbh, Obch, lbh 

45 dialjnenu db 07h,07h,03h,42h 

db 0c9h, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

50 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

210 



10 



15 



20 



25 



30 



35 



online_msg 



40 



45 



50 



db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 

db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 
db 



Ocdh , lbh ,. Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 



Obbh , lbh , Obah , lbh , 20h , lbh , 20h , lbh , 20h , lbh 



45h , lbh , 6eh , lbh , 74h , lbh , 65h , lbh 
20h , lbh , 50h , lbh , 68h , lbh , 6fh , lbh 
65h , lbh , 20h , lbh , 4eh , lbh , 75h , lbh 
62h , lbh , 65h , lbh , 72h , lbh , 3ah , lbh 
20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 
20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 
20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 
20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 
20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 
20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 
20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 
20h , lbh , 20h , lbh , 20h , lbh ,-20h , lbh 



20h , lbh , Obah , lbh , Oc8h , lbh , Ocdh , lbh , Ocdh , lbh 



Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh 
Ocdh , lbh , Ocdh , lbh , Obch , lbh 



lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 



72h,lbh 
6eh,lbh 
6dh,lbh 
20h,lbh 
20h,lbh 
20h,lbh 
20h,lbh 
20h,lbh 
20h,lbh 
20h,lbh 
20h,lbh 
20h,lbh 



lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 
lbh, Ocdh, lbh 



00h,00h,01h,50h 

Ob3h , 5bh , 20h , 5bh , 4fh , 5bh , 6eh , 5bh , 20h , 5bh 
4ch , 5bh , 69h , 5bh , 6eh , 5bh , 65h , 5bh , 20h , 5bh 
20h , 5bh , Ob3h , 5bh , 20h , 5bh , 38h , 5bh , 20h , 5bh 
62h , 5bh , 69h , 5bh , 74h , 5bh , 73h , 5bh , 20h , 5bh 
Ob3h , 5bh , 20h , 5bh , 20h , 5bh , 20h , 5bh , 20h , 5bh 
4eh , 5bh , 6fh , 5bh , 20h , 5bh , 50h , 5bh , 61h , 5bh 
72h , 5bh , 69h , 5bh , 74h , 5bh , 79h , 5bh , 20h , 5bh 
20h , 5bh , 20h , 5bh , Ob3h , 5bh , 20h , 5bh , 31h , 5bh 
20h , 5bh , 53h , 5bh , 74h , 5bh , 6fh , 5bh , 70h , 5bh 
20h , 5bh , 42h , 5bh , 69h , 5bh , 74h , 5bh , 20h , 5bh 
0b3h , 5bh , 20h , 5bh , 31h , 5bh , 32h , 5bh , 30h , 5bh 
30h , 5bh , 20h , 5bh , 42h , 5bh , 61h , 5bh , 75h , 5bh 
64h , 5bh , 20h , 5bh , 4fh , 5bh , 72h , 5bh , 69h , 5bh 
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db 
db 
db 



67h , 5bh , 69h , 5bh , 6eh , 5bh , 61h , 5bh , 74h , 5bh 
6 5h , 5bh , 20h , 5bh , 4dh , 5bh , 6 fh , 5bh , 64h , 5bh 
65h , 5bh , 20h , 5bh , 20h , 5bh , 20h , 5bh , Ob3h , 5bh 



5 outg ing_msg db 07h,19h,03h, lbh 

db 0c9h , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh, lbh, Ocdh, lbh. Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

10 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh, lbh, Obbh, lbh, Obah, lbh, 20h, lbh, 20h, lbh 

db 20h , lbh , 53h , lbh , 65h , lbh , 6eh , lbh , 64h , lbh 

db 69h.lbh,6eh,lbh,67h,lbh,20h,lbh,59h,lbh 

db 6fh , lbh , 75h , lbh , 72h , lbh , 20h , lbh , 4dh , lbh 

15 db 65h,lbh,73h,lbh,73h,lbh,61h,lbh,67h,lbh 

db 65h, lbh, 20h, lbh, 20h, lbh, Obah, lbh, Oc8h, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

20 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Obch.lbh 

recording_msg db 07h , 19h , 03h , leh 

25 db Oc9h, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh . lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

30 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Obbh, lbh 

db Obah , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 52h , lbh 

db 65h , lbh , 63h , lbh , 6fh , lbh , 72h , lbh , 64h , lbh 

db 69h,lbh,6eh,lbh,67h,lbh,20h,lbh,59h,lbh 

db 6fh,lbh,75h,lbh,72h,lbh,20h,lbh,4dh,lbh 

35 db 65h,lbh,73h,lbh,73h,lbh,61h,lbh,67h,lbh 

db 65h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , Obah , lbh 

db Oc8h , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

40 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Obch , lbh 

callp_win db 08h , 18h , 05h , 21h 

45 db 0c9h, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

50 db Ocdh, lbh, Ocdh. lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 
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db Ocdh, lbh,Ocdh,lbh,0bbh,lbh,0bah, lbh, 20h, lbh 

db 4eh , lbh , 6fh , lbh , 20h , lbh , 46h , lbh , 69h , lbh 

db 6ch , lbb , 74h , lbh , 65h , lbh , 72h , lbh , 20h , lbh 

db 4ch,lbh,65h,lbh,76h,lbh,65h,lbh,6ch,lbh 

5 db 3ah,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db 0bah,lbh,0bah,lbh,20h,lbh,43h,lbh,61h,lbh 

db 6ch , lbh , 6ch , lbh , 20h , lbh , 50h , lbh , 72h , lbh 

10 db 6fh,lbh,67h,lbh,72h,lbh,65h,lbh,73h,lbh 

db 73h , lbh , 20h , lbh , 4ch , lbh , 65h , lbh , 76h , lbh 

db 65h,lbh,6ch,lbh,3ah,lbh,20h,lbh,20h,lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db 20h,lbh,20h,lbh,20h,lbh,0bah,lbh,0bah,lbh 

15 db 20h,lbh,41h,lbh,6eh,lbh,73h,lbh,77h,lbh 

db 65h,lbh,72h,lbh,20h,lbh,54h,lbh,6fh,lbh 

db 6eh , lbh , 65h , lbh , 20h , lbh , 4ch , lbh , 65h , lbh 

db 76h , lbh , 65h , lbh , 6ch , lbh , 3ah , lbh , 20h , lbh 

db 20h,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 

20 db 20h,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 

db 20h, lbh, Obah, lbh, 0c8h, lbh , Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

25 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Obch , lbh 

ttone_detect_win db 09h,18h,05h,21h 

30 db Oc9h , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 

35 db Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh, Ocdh, lbh 

db Ocdh, lbh, Ocdh, lbh, Obbh, lbh, Obah, lbh, 20h, lbh 

db 4eh , lbh , 6fh , lbh , 20h , lbh , 46h , lbh , 69h , lbh 

db 6ch , lbh , 74h , lbh , 65h , lbh , 72h , lbh , 3ah , lbh 

db 20h,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 

40 db 20h,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 

db 20h,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 

db 20h,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 

db Obah , lbh , Obah , lbh , 20h , lbh , 36h , lbh , 39h , lbh 

db 37h , lbh , 2dh , lbh , 37h , lbh , 37h , lbh , 30h , lbh 

45 db 20h,lbh,48h,lbh,7ah,lbh,20h,lbh,46h,lbh 

db 69h,lbh,6ch,lbh,74h,lbh,65h,lbh,72h,lbh 

db 3ah , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 

db 20h,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 

db 20h , lbh , 20h , lbh , 20h , lbh , Obah , lbh , Obah , lbh 

50 db 20h,lbh,31h,lbh,32h,lbh,30h,lbh,39h,lbh 
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10 



15 



20 



25 



30 



35 



db 2dh , lbh , 31h , lbh , 3 3h , lbh , 33h . lbh , 36h , lbh 
db 20h , lbh , 48h , lbh , 7ah , lbh , 20h , lbh , 46h , lbh 
db 69h , lbh , 6ch , lbh , 74h , lbh , 65h . lbh , 72h , lbh 
db 3ah,lbh,20h,lbh,20h,lbh,20h,lbh,20h,lbh 
db 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh , 20h , lbh 
db 20h,lbh,0bah,lbh,0c8h,lbh,0cdh,lbh,0cdh,lbh 
db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 
db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 
db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 
db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 
db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh 
db Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Ocdh , lbh , Obch , lbh 
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model small 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
Screen driver routines 

This routine writes the receive data to the screen during terminal 
mode. 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
include equates 

public init_comm_screen, save_screen, restore_screen 

public screen_out,print_parity 

extra window_up:near 

extra display_segment : word ,main_f lags : word 
extra online_msg:byte 



. data 





screen_buffer 


dw 




cursor 




dw 




buffer_pos 


dw 


? 


40 


out_char 


db 


? 




parity_msg 


db 


'8 






db 








db 




45 




db 








db 


'7 






db 


'7 



2000 dup(?) 
? 



db 
db 



No 



Odd 
7 Space 
7 Mark 



50 



.code 
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%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



INIT_COMM_SCREEN PROC NEAR 

5 

lea si, onl ine_ms g 

call windov_up 

call printjparity 

10 mov cursor , lOOh 

mov buf f er_pos , 160 

; position the cursor 

mov dx, cursor 

mov ah, 02 

15 xor bh,bh 

int lOh 

mov es , display_segment 

mov di,160 

20 mov cx, (23*80) 

mov ax,0720h ; attribute and 9 9 

cmp display_segment,mono 

je no_color 

mov ax,lf20h ; attribute and ' 9 

25 no_color: 

rep stosv 

call save_screen 

30 ret 

INIT_COMM_SCREEN ENDP 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
35 ; 

SAVE_SCREEN PROC NEAR 
. data 

cursor_pos dw ? 

.code 

40 mov cx,2000 

lea di , screen_buf f er 

xor si, si 

mov ax,display_segment 

push ds 

45 pop es 

push ds 

mov ds , ax 

rep movsv 

pop ds 

50 
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10 



30 



mov ah, 03 
xor bh.bh 
int lOh 

m v cursor_pos , dx 
ret 

SAVE_SCREEN ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
RESTORE SCREEN PROC NEAR 





mov 


cx,2000 


15 


lea 


si , screen_buf f er 




mov 


es, display segment 




xor 


dl,di 




rep 


movsw 


20 


mov 


ah,02h 




xor 


bh,bh 




mov 


dx, cursor_pos 




int 


lOh 


25 


ret 





RESTORE_SCREEN ENDP 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



SCREEN_OUT PROC NEAR 

; AL has the character to print to the screen 0 to 7fh 

cmp al , 9 9 

jae outfit 

35 cmp al,cr 

jne chk_lf 

; carriage return 

mov dx, cursor 

40 xor dl,dl 

mov al,dh 

mov cl , 160 

mul cl 

mov buf f er_pos , ax 

45 jmp nonwrap 

chk_lf: 

cmp al , If 

jne chk_bs 

50 
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mov 


dx, cursor 




cmp 


dh,23 






scroll_it 




inc 


an 


5 


add 


buffer_p s,160 




jmp 


nonwrap 




cnK_Ds : 






cmp 


al , bs 


10 




do_bs 




ret 






do_bs : 






cmp 


Duiter_pos f lou 




jne 


no_top 


15 


ret 






no_top : 






sub 


buf f er_pos 1 2 




mov 


di, buffer pos 




mov 


al,' ' 


20 


push 


es 




mov 


es , display_segment 




mov 


es: [di] , al 




pop 


es 


25 


mov 


dx, cursor 




dec 


dl 




jns 


nonwrap 




mov 


dl,79 




dec 


dn 


30 


jmp 


short nonwrap 




out_it: 






push 


es 




mov 


es , display_segment 




mov 


di,buffer_pos 


35 


stosb 






inc 


di 




mov 


Duller pos , ax 




pop 


es 


40 


mov 


dx, cursor 




inc 


dl 




cmp 


dl,80 




jne 


nonwrap 




inc 


dh 


A ^ 


cmp 


AV% OA 

an , z<t 




jne 


no_scroll 




m v 


buffer pos,( 23 * 160 ) 




mov 


dx ,1700b 


50 


scroll_it: 





mov di , 160 

mov si, 320 

mov cx, 22*80 

mov ax , display_segment 

5 

push es 

push ds 

mov ds,ax 

mov es,ax 

10 rep movsw 

pop ds 

mov cx , 80 

mov al , ' ' 
15 clear_line: 
stosb 

inc di 

loop clear_line 

pop es 

20 

jmp short no_wr£p 
no_scroll: 

xor dl,dl 

25 ; get new buffer position 

mov al , dh 

mov cl,160 

mul cl 

mov buf f er_pos , ax 

30 

no_wrap : 

mov cursor, dx 

xor bh,bh 

mov ah ,02 

35 int lOh 

ret 

SCREEN_OUT ENDP 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
PRINT_PARITY PROC NEAR 

45 mov ax,main_flags 

mov al.ah 

and ax,07h 

mov bl,6 

imul bl 

50 mov bx,ax 



40 
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mov es,display_s gment ; print word length 

mov di , 26 

mov al , par ity_msg [bx ] 

inc bx 

stosb 



mov cx , 5 

mov di,44 
out_loop : 

10 mov al,parity_msg[bx] 

stosb 

inc di 

inc bx 

loop out_loop 

15 

mov di,70 

mov ax,5b20h 

mov [es:di],ax 

20 ret 



25 



PRINT_PARITY ENDP 
END 



; general equates 



; conditional assembly 
30 board equ 0 

modem_board equ 35ch 



35 



tuf_len equ 8192 * 2 ; TX and RX buffers 

rx_samples_length equ 8192 * 2 ; byte size 

mono equ ObOOOh 
color_seg equ 0b800h 





bO 


equ 


1 


40 


bl 


equ 


2 




b2 


equ 


4 




b3 


equ 


8 




b4 


equ 


lOh 




b5 


equ 


20h 


45 


b6 


equ 


40h 




b7 


equ 


80h 




b8 


equ 


lOOh 




b9 


equ 


200h 




blO 


equ 


400h 


50 


bll 


equ 


800h 



219 



bl2 




equ 


lOOOh 


bl3 




equ 


2000h 


bl4 




equ 


4000h 


bl5 




equ 


8000h 


cr 




equ 


13 


If 




equ 


10 


bs 




equ 


8 


Fl 




equ 


3b00h 


F2 




equ 


3c00h 


F3 




equ 


3d00h 


F4 




equ 


3e00h 


F5 




equ 


3f00h 


F6 




equ 


4000b 


F7 




equ 


4100h 


F8 




equ 


4200h 


F9 




equ 


4300h 


Flu 




equ 


440 Oh 


ALT_ 


A 


equ 


leOOh 


ALT* 


H 


equ 


2300h 


alt" 


*P 


equ 


1900b 


alt] 


"s 


equ 


lfOOh 



UP ARROW equ 


4800h 




DOWN_ARROW equ 


5000h 




channels 5 and 6 


equates 


dma_5_page equ 


8bh 




dma_6_page equ 


89h 




dma_5_addr e s s 


equ 


0c4h 


dma_5_count equ 


0c6h 




dma_6_addre s s 


equ 


0c8h 


dma_6_count equ 


Ocah 




rd_status equ 


OdOh 




rd_temp 


equ 


Odah 


wr_cmd 


equ 


OdOh 


wr_req 


equ 


0d2h 


wr_s ingl e_mask 


equ 


0d4h 


wr_mode 


equ 


0d6h 


wr_clr_byte_ptr 


equ 


0d8h 


wr_mas t e r_c lr 


equ 


Odah 


wr_clr_mask equ 


Odch 




wr_all_mask equ 


Odeh 





tone_2225 equ 15189 ; 2 * freq / 9600 

tone_2225_72s equ 20252 



tone 1500 


eau 


10240 


1941 equ 


6424 




1852 eau 


5816 




1770 eau 


5257 




1697 eau 


H / JO 




hl663 equ 


11148 




Hl_&77 pnn 


10083 




hl336 eau 


9120 




hl209 eau 


8253 




1941 72s 


equ 


8565 


1852 72s 


equ 


7755 


1770 72s 


equ 


7009 


1697_72s 


equ 


6344 


hl663 72s 


equ 


14864 


hl477 72s 


equ 


13444 


hl336 72s 


equ 


12160 


hl209 72s 


equ 


11004 



END OF ASSEMBLY LANGUAGE LISTING 
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